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1620 DIAGNOSTICS 



Test CU01 

A. SCOPE : 

Tnis test is essentially a fault detection test designed to check for proper function- 
ing of all standard operation codes, the optional feature DIVIDE operation codes, 
and the circuitry associated with these codes, Failure of an operation to function 
properly will cause the associated routine number to be typed out (provided 
Switch #1 is OFF). However, since the operation code and E time triggers are 
known for each routine, a failure of one routine will indicate the circuits or com- 
ponents that may be the source of the trouble. Failure of several routines may 
establish a pattern that will further isolate the failing component(s). 

B. SET UP : ■ . 

Seven switches must be set for the desired operation. These are the three check 
switches, Data Check Switch, Overflow Check Switch, I/O Check Switch. If set 
in the PROGRAM position, a check error will not cause a machine stop; only the 
light will be turned on and the indicator can be interrogated and turned off by the 
running program. If set in the STOP position, the program will halt at the end 
of the memory cycle which causes the indicator to turn on. The suggested set- 
tings for these switches when running CUOl are Data Check - Stop; I/O - Stop; 
Overflow - Program. On suffix A machines, there is no I/O Check Switch; there 
is a MAR Check Switch which should be set to stop. 

The four console Sense switches have the following functions in this test and should 
be set as desired: (SUGGESTED SETTING, ALL SWITCHES OFF) 



SWITCH #1 


ON 


Bypass error type out 




OFF 


Type out routine number on error 


SWITCH #2 . 


ON 


Loop in routine 




OFF 


Continue to next routine 


SWITCH #3 


ON 


Stop on error 




OFF 


Do not stop on error, continue 


SWITCH #4' 


ON 


Repeat Test CUOl 



NORMAL LOAD FROM TAPE READER : 

To run the entire test, the paper tape containing the memory load for CUOl must 
be loaded in the paper tape reader and the reader put in a REEL mode and a READY 
condition. Also, put the tape punch in the READY condition. The following instruc- 
tion must be manually inserted in memory locations 00000-00018: 3 600024003 00490082S 
Then RELEASE and START. 
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NORMAL LOAD FROM CARD I/O 



Place card deck for CU01 in read hopper. Load and run in blank cards in punch 
hopper. Reset 1620. Depress Load key; which will cause the core storage to be 
loaded for CU01. 

Routines with instructions addressing the paper tape reader and paper tape punch 
are the only routines that are different for card I/O. These differences are minor; 
i. e. , a change to select card reader or card punch instead of paper tape reader or 
paper tape punch, and a change of P addresses to account for the 80 character 
positions of the card. 

The first eight cards contain loading instructions and the math tables. The first 
two cards contain 8 instructions. The second through sixth instructions load the 
math tables at 60 characters per card. The seventh instruction loads core stor- 
age positions 00000 to 00060 with the loading instructions and the eighth instruc- 
tion branches to 00000. 

The loading instructions are: 

11 00030 000B0 
14 00030 T9944 
36U0384 00500 
47 00000 01200 
49 00828 00000 

The compare instruction in the above routine detects when core storage has been 
loaded for CU01. An equal comparison indicates that the core storage load is 
complete, and the program then branches to the routine that types out the setting ; 
of the sense switches. 

The interlock circuits of the card reader are such that when the read hopper is 
empty the machine will stop on the next command for a card read. Two cards 
remain in the read feed. To transport these cards past the read brushes and 
transmit the data to the 1620 core storage, the 1622 start key must be depressed 
or two blank cards placed behind the deck when the deck is placed in the hopper. 
One of these two methods MUST be used to complete the core storage load for 
CU01 and to commence with the execution of the routines. 
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CU01 



The first program executed by CXJQ\ is a check of the console sense 
switches. The setting of these switches are typed out along with the 
instruction to set these as desired; then press the START key; 
HOWEVER, to check DIVIDE if installed, the following operations 
must be performed BEFORE depressing START: 

1. INSERT 

2. KEY IN 4914004 

3. RELEASE 

4. START 

These operations will cause the instruction, branch to first division 
routine, to be written in memory positions 13992 - 13998, and then 
branch to 00552. 

Division is an optional feature; although the routines to check out 
division are included in the program. If division is not installed, 
the load dividend and the divide OP codes are not valid and would 
cause the machine to "hang-up" when entered in the OP register 
and an execution attempted. Thus, a branch operation to skip the 
division routines is included in the program. This instruction must 
be altered to check division. 

ENTER SINGLE ROUTINE FROM KEYBOARD 

A single routine can be entered from the keyboard in the following manner: 

1. Manually insert the instructions 36xxxxx0010049yyyyy from 
the keyboard. { xxxxx is the first memory location of the 
routine. In most cases it is the first position of the constant 
or working area, yyyyy is the first instruction of the sub- 
routine. ) 

2. Then release and start. The machine will "hang-up" waiting 
for information from the keyboard. 

3. Key in the constants and instructions of the routine. Then 

release and start. 

4. With Switch #2 on, the machine will loop in this routine. 
NOTE: If the instruction involves arithmetics, the arith- 
metic tables must be loaded in memory locations 100-399. 
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PRODUCE NEW PAPER TAPE : 

To regenerate or produce another tape for input, read in the MASTER 
tape. When the machine halts after typing out the status of the program 
sense switches, Reset, Insert, key in the instructions 35000240020048, 
Release, Start. 

C. TEST METHOD : 

This test is made up of a number of sub-routines. Each sub-routine checks 
an operation code for specific condition and can be run as an individual test. 
Each sub-routine has associated with it constants and a working area, the 
test routine, and an error routine; and these take a block of memory. No 
other routine will use this block of memory. The only exception is arith- 
metics, where the add and multiply tables and the product area are involved. 

The test was designed to first check out the more simple decision elements 
to determine their proper operation. As a decision element was proved to 
be working correctly, it was used to check the next more complicated routine. 

The test starts with Checking out Branch No Record Mark, then proceeds to 
checkout Branch No Flag, Branch on Digit, Branch Indicate, Branch No 
Indicate, Transmit Digit, Transmit Digit (Immediate), Transmit Field, 
Transmit Field (Immediate), Transmit Record, Branch and Transmit, 
Branch Back, Branch and Transmit (Immediate), Set Flag, Clear Flag, 
Add, Add (Immediate), Subtract, Subtract (Immediate), Compare, Compare 
(Immediate), Multiply, Multiply (Immediate), Control, Write Numerically, 
Write Alphanumerically, Dump Numerically. Load Dividend, Load Dividend 
(Immediate), Divide, Divide (Immediate) are checked just prior to the con- 
trol check if the instructions are followed. 

Routines in CU01, other than those that check Input-Output operations, are 
performed 1000 times. This is done to give a good exercise to the logic and 
to have the program run for an interval of time that can be visually noted. 
The 1000 repeat takes in the order of 150 seconds (without division). 

Upon completion of the 1000th loop, the program enters the routines (077-079) 
for checking the Input- Output functions. 

Routine 077 checks carriage return, tab, space, write numeric, and write 
alphanumeric operations. 

Routine 078 checks dump numeric, and routine 079 checks write alpha on 
cards or paper tape. After these routines are completed, the machine 
enters the "completed test" routine. The machine will halt if Switch #4 
is OFF. 
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The typeout of routines 077 - 079 should appear as follows: 

12345 67890 
12345 67890 12345 
12345 67890 

NTJM INFO ABOVE OFFSET TO RIGHT TWO SPACES BETWEEN 

5 AND 6 THREE LINES OF DATA. 

199760123456789^12199989 

The characters that appear on the left margin and the length of the lines will 
depend upon the setup of the typewriter. The first tab stop should be at 
least ten characters from the left-hand margin. 

To check the paper tape output, load paper tape in reader after system has 
come to a HALT after performing CU01. Select the STRIP mode. START. 
The output tape will then be read into memory and typed out. The dump 
numeric information should be identical to that which was dumped to the 
typewriter except that the record work is omitted. Three identical groups 
of write alpha data will be typed out. 

19976012345678912199989 
. )+$*-/, A8C0EFGHUKtHN0l»(pSTUVWXYZ0 123^56789 
.)+$*-/, (=# ABCDEFGH J JKLMN0F(^STUVWXYZ0 I 23^56789 
.)+$*-/,(=(» ABCDEFGHIJKLMNOPQRSTUVWXYZOt23 i *56789 

Routine 097 checks for proper operation of the arithmetic indicators and 
BI and BNI on these indicators. 

Typical error typeouts are H followed by the routine number. If the first 
digit following the H is a 5, this indicates that it is a sub-routine associated 
with the routine designated by the last two digits; i. e. , (H529 or H016). 
H529 is a subroutine of routine 29. 

The complete normal typeout information will be as follows: (Note: The 
numbers after "THEN START" are present only if DIVIDE is installed 
and checked. ) 

SW 1 OFF SW 2 OFF SW 3 OFF SW k OFF SET SWS FOR CU01. 

THEN START. ^91^00** 
START ROUTINES. ET0S FOLLOW. 

123^5 67890 

123*6 67890 123**5 

123^5 67890 

NUM INFO ABOVE OFFSET TO RIGHT TWO SPACES BETWEEN 5 AND 
6 THREE LINES OF DATA 

1 99760 1 23^56789*12 1 99989 

TEST ROUTINES COMPLETED. IF SWI OFF AND NO ROUTINE NOS 
TYPED OUT, MACHINE PERFORMED TESTS PROPERLY. 
199760123^5678912199989 

.)+$*-/, (=<® ABCDEFGHIJKLMNOP(#STUVWXYZOI23**56789 
.-)+$*-/, (=<s> ABCDEFGHIJKLMNOPQRSTUVWXYZ0 123^56789 
. )+$W, {=<» A^DEFGHIJKLMN0P(BSTUVWXYZ0I23W789 
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Typical Flow Chart of a Test Routine 



From 

Preceding 

Routine 



Constants and 
Working Area 



Set up for Te^t 
of OP Code 



I 



Perform OP Code 



..X.e&, 



Check if OP Correct 



Branch to Check Sw. #2 



Error Routine 



Check if Switch I on 



Type Error Indication 



Check if Switch 3 on 



Halt 



Check if Switch 2 on 



Branch to next routine 



No 



Ma. 



<3- 



V 

next 
routine 
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CU01 FLOW CHART 



Load CU01 
Paper Tape in 
Tape Reader 



Key in Load 
instructions 
starting memory 
location 00000 



Load 

Instructions are 

360002400300 

4900828 



< 



Release and Start 



> 



00000 



Load Memory 
for CU01 



00012 



Branch to Sense 
Sw. Setting Typeout 
Routine 



This instruction will load 
all of memory starting at 
00024. A i will be loaded 
in 00000. 



E Cycle Trigs 
18 
19 
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00600 



to 01104 



Sense Sw. Setting 
Typeout Routine 



f 

To Page 7 
(01104) 



This routine will indicate if BI and /or 
BN1 codes are working. Machine wi^ 
HALT with 01091 in MAR. START 
must be depressed to resume* 



If DIVIDE installed, modify 

BRANCH instruction at 13992 

to check. DIVIDE. Key in 
3613992001004900552. Release 

and start. Key in 4914052, 
Release an< 
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CU01 FLOW CHART 
FOR 1622 I/O 



Reset 1620 



Ready the 
Card Reader 



'Place CU01 Card Deck 
in the 1622 Read Hopper 
Depress the 1622 LOAD 
Key 



00000 


to 


00060 


36 


00060 


00500 


36 


00100 


00500 


36 


00160 


00500 


' 36 


00220 


00500 


36 


00280 


00500 



00060 


to 


00095 


36 


00340 


00500 1 


36 


00000 


00500 


[ 49 


00000 


00000 j 


00000 




to 


00060 


11 


00030 


00060 


14 


00030 


19944 


36 


U0384 


00500 


47 


00000 


01200 


49 


00828 


00000 


00600 


to 


01104 



Card #1 



First and Second Load Cards 
load the math tables and the 
Program Load Card (Card #8). 
(Cards #3 through #7 contain 
the math tables. ) 



Card #2 



Card #8 



< 



Sense Switch Setting 
Type-out Routine 100 



Load Card #8 contains instruc- 
tions for loading the CU01 routines. 



This routine will indicate whether 
BI and/or BNI are working. The 
1620 will Halt with 01091 in MAR. 
To check DIVIDE, if installed, see 
Page 2. If DIVIDE is not installed, 
press Start. 



To Page 7 
(01104) 
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From Page 
(01091) 



01104 fto 01993 



From 



1) Times 1000 
routine. 

2) Sense Sw. #4 on. 

3) Step 19708. 



01992 



Routines 001 - 008 
Check BNR (45) 



to 02424 



Routines 009 - 012 
Check BNF (44) 



P?424 



Ito 02916 



Routines 013 - 017 
Check BD (43) 



02916 



to 03852 



Routines 018 - 023 
Check TD (25) 
and TDM (15) 



E Cycle Trigs. Aux. 
28 Check for RM 
29 
18 



Trigs. 



RM 



19 



Branch 



E Cycle Trigs. Aux Trigs. 

28 Check for FLAG FM #1 

29 

11 



19 



Branch 



E Cycle Trigs 



Aux. Trigs 



28 Check for digit Digit 
29 



19 



Branch 



£ Cycle Trigs. 

26 Read Mem. 

27 Write Mem. 



Aux. Trigs.. 
None 



03852 



to 04284 



Routines 024 - 026 
Check TF (26) 
and TFM (16) 



04284 



to 04440 



Routine 027 
Check TR (31) 



E Cycle Trigs. 

26 Read Mem. 

27 Write Mem. 



£ Cycle Trigs. 

26 Read Mem. 

27 Write Mem. 



Aux. Trigs. 

First Cycle 
Deer. FM| 



Aux. Trigs 

Incr. 
RM 



To Page 8 
(04440) 
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From Page 7 
(04284) 



04440 \ 


fto 05004 


E Cycle Trigs. 


Aux. Trigs. 


Routines 028 and 029, 


BT & BTM 


BT & BTM 


528 and 529 


15 Setup IR-2 


Deer. 


Check BT (27) 


16 Set up IR-1 


First Cycle 


BTM (17) & BB (42) 


26) Transmit 


FM 11 






27J Field 








BB 


BB 






20 


Save control 






*9 


status 


05004 


to 05604 


E Cycle Trigs. 


Aux. Trigs. 


Routines 


— i 

030 - 033 


28 


None 


Check Set Flag (32) 


29 




05604 


to 06228 


E Cycle Trigs. 


Aux. Trigs. 


Routines 


034 - 037 


28 


None 


Check Clear Flag (33) 


29 





06228 


to 07248 


Routines 


038 - 042 


' Check H/P, E/Z 
Trigs. ;ADD (21) 


07248 


to 09024 


Routines 043 - 050 
Check H/P, E/Z 
Trigs. ; Subt. (22) 







E Cycle Trigs. 

11 
12 
13 
14 
23 



E Cycle Trigs, 

11 
12 
13 
14 
23 



To Page 9 
(09024) 



Aux. Trigs. 

H/P, Carry In 
E/Z, Carry Out 
T/C, Recomp. , 
#22; Incr. /Deer 
First Cycle 
FM #1 
FM #2 



Aux. Trigs . 

H/P 
E/Z 
T/C 

Incr. /Deer. 
First Cycle 
FM #1 
FM #2 
Carry Out 
Carry In 
Recomp. , #22 
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From Page 8 
(09024) 



09024 ftp 09924 



Routines 051 - 055 
Check for Correct 
Memory Look Up on 
Add (21); Sub. (021) 


09924 


to 10596 


Routines 056 - 059 
Check Off Tri g. On 
Add (21), Sub. (22), 
Add (11), SM (12) 


10596 


to 11064 


Routines 060 - 062 
Check Comp. (24) 
For H/P 


11604 


to 11544 


Routines 063, 064 
Check Comp. (24) 
For E/Z 







E Cycle Trigs, 
11 
12 
13 
14 
23 



E Cycle Trigs, 

11 

12 

13 

14 

23 



E Cycle Trigs. 
Depends upon length T/C, H/P, E/Z, 



Aux. Trigs. 
H/P 
E/Z 
T/C 
FM #1 
FM #2 
Carry Out 
Carry In 
Incr. /Deer. 
First Cycle 
Recomp. , #22 

Aux. Trigs. 
H/P #22 
E/Z O'Flow 
T/ C 
FM#1 
Carry Out 
Carry In 
Incr. / Deer. 
Recomp. 



Aux. Trigs. 



I 

To Page 10 
(11544) 



and sign of fields. 
If all trigs . used: 

11 
12 
13 
14 
21 

E Cycle Trigs. 
Depends upon length 
and sign of fields. 
If all trigs, used, 
they are: 
11 
12 
13 
14 
21 



Incr. /Deer. 
First Cycle 
FM #1 
FM #2 
Carry Out 
Carry In 



Aux. Trigs. 
T/C, H/P, E/Z, 
First Cycle, 
FM #1 
FM#2 
Carry Out 
Carry In 
Incr. /Deer. 



PN 2128301 
EC 404530 



Page 10 



From Page 9 
(11544) 



ftp, U7I2 



Routines 065, 066 
Check Comp. (24) 
For Not H/P, 
Not E/Z 


11712 


to 11868 


Routine 067 
Check Comp. Immed. 
(14) for E/Z 


11868 


to 12228 


Routines 068 - 069 
Check Add (21) and 
Subt. (2 2) -Comp. Ans 


12228 


to 13272 


Routines 070 - 076 
Check Multi (23) 
and Multi, Immed(13) 
Comp. Ans. 







E Cycle Trigs. 

Depends upon length 

and sign of fields. 

If all used: 

11 

12 

13 

14 

21 



E Cycle Trigs 
11 
12 
13 
14 



E Cycle Trigs 

11 
12 
13 
14 
21 



E Cycle Trigs 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
19 



To Page 
(13992) 



11 



Aux. Trigs. 

T/CH/P.E/2, 
First Cycle 
FM #1 
FM #2 
Incr. /Deer. 
Carry Out 
Carry In 



Aux. Trigs. 
T/C,H/P,E/Z 
First Cycle 
FM H I 
FM#2 
Incr. /Deer. 
Carry Out 
Carry In 



Aux. Trigs. 

E/Z,H/P,T/C 
First Cycle 
FM #1 
FM #2 
Incr. / Eecr. 
Carry Out 
Carry In 



Aux. Trigs. 
E/Z, H/P 
T/C 

First Cycle 
Carry Out 
Carry In 
FM #1 
FM #2 
Incr. /Deer. 
Cycle Control 
00080 
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Branch 



To 



Optional 
Features 
Divide 



From Page 10 
(13272) 



13992 Ito 14028 



Bypass Divide 
Programs Unless 
this instruction 
changed to 
(49 14052) 



T 



I 



14052 



Ito 14620 



Routines 080 - 082 
Check Load 
Dividend(28) and Load 
Dividend Imme d . ( 1 8) 



14620 


to 15568 


Routines 083 - 087 

Check Divide (29) 
Divide feimed, (19) 


15568 


to 15844 


Routines 088 and 089 

Check Divide 
By Zero Indication 
and O/F Indication 



To Page 11A 

(18808) 



Bypass Divide 



If Divide installed and branch to 
14052 has been keyed into 13992, 
Program will branch to 14052. 



E Cycle Trigs, 
32 
26 
27 
28 
29 



E Cycle Trigs, 

32 13 

26 14 

27 21 

\Z 

13 



28 
29 



11 44 

12 45 



E Cycle Trigs 

32 13 

26 14 

27 21 

28 42 

29 43 

11 44 

12 45 



Aux. 



Trigs 



H/P 
Incr. /Deer. 
00080 

First Cycle 
Cycle Control 
FM #1 
FM#2 

Dividend and 
Remainder Sign 



Aux. Trigs . 

Incr . /Deer. 
00080 

First Cycle 
H/P;Cycle Con. 
FM #1$. FM #2 
Dividend and R© 

reminder Sign, 
First Divide 
Cycle; T/C 

Divide add 
Carry Out 
Carry In 
Last "Div. Cycler 

Aux Trigs. 

Incr. /Deer. 
00080 

First Cycle 
H/P:Cycle Con 
FM $1; FM #2* 
Dividend & Re- 
mainder sign; 
First Divide 
Cycle; T/C 
Divide Add 
Carry Out 
Carry In 
Last l5iv., CycW 
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From Page 11 
(15844 or 14028) 



18808 * 19312 



1 



Routine 097 
Check BI (46) and BNI (47) 
on H/P, E/Z, H/PorE/2), 
and O/F Indicators 



To Page 12 
(15844) 
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From Page 11 A 
(19312* 



Page 12 



15844 fto 15916 



No O'Flo w 


Times 1000 Routine 
Overflow Indicates 


Start 001 


X1000. 


CHK NOP 


(01116) 




O'Flow 




13272 


to 13764 




Routine 077 
Check Control (34), 
WN, (38), WA(39) 
Visual Check of type- 
writer output 



E Cycle Trigs. 

11 18 

12 19 
13 

14 
21 



E Cycle Trigs 

30 
31 



13764 



to 13836 





Ro\ 

CI 
Vis 
Type 
PU1 


itine 078 

ieck DN (35) 
a a 1 Check of 

READ IN 

SJCHED DATA 


Data for DN Test 
19976 - 19999 





13836 



to 13992 



Routine 079 
Check Write Alpha(39) 



19720 



to 19972 



Test Completed 
Routine 



E Cycle Trl 
30 
31 



E Cycle Trigs 
30 
31 



E Cycle Trigs, 

30 
31 




(19552) 



Aux. Trigs. 
Branch Test 
T/C,H/P,E/Z 

First Cycle 
FM #1; FM #2 
Incr. /Deer. 
Carry Out 
Carry In 

Aux. Trigs. 

I/O Hold 
RSP GATE 
R/W Call 
Discon. Gate 
I/O Exit 
I/O Sync. 



Aux. Triga. 
I/O Hold 
RSP Gate 
R/W Call 
Discon. Gate 
I/O Exit 
I/O Sync. 
19999 Stop 

Aux. Trigs . 

I/O Hold 

RSP Gate 

R/W Call 

Discon* Gate 

I/O Exit 

I/O Sync. 
Aux. Trigs. 

I/O Hold 
RSP GATE 
R/W Call 
Discon. Gate 
I/O Exit 
I/O Sync. 
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From Page 12 
(19972) 



19552 



I 



Halt 

To check punch output, 
load~in reader & start 



No E Cycle Trigs. Aux. Trig. 



Stop #2 



Punched Data 
Read into Mem. 
19432 - 19551 



L9564 



19696 



Routine 099 
Check Punch 
Output 

Read In and 
Then Type out 



Load Punched Output into reader 



This checks output of Routines 078,079. 
0N Data should be same 
as DN on typewriter except for RM 
before 12 



19696 

Halt 



19708 j 

Branch to routine 001 




t 

To routine 001 
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1620 DIAGNOSTIC PROGRAM 



MEM OOPPPPPQQQQQ 
LOG 01 23456 78 901 

24 
36 
48 
60 
72 
84 



96 




000 


00000 


108 


00 


00102 


03040 


120 


00 


20406 


08000 


132 


30 


60902 


10040 


144 


80 


21610 


05001 


156 


51 


02006 


02181 


168 


42 


00704 


11282 


180 


00 


80614 


22300 


192 


90 


81726 


30000 


204 


00 


00005 


06070 


216 


80 


90012 


14161 


228 


81 


51811 


24272 


240 


02 


42822 


36352 


252 


03 


53045 


40363 


264 


24 


84455 


32494 


276 


65 


36048 


46546 


288 


27 


54453 


62718 


300 


01 


23456 


78912 


312 


34 


56789 


02345 


324 


67 


89013 45678 


336 


95 


12456 78981 


348 


23 


56789 01234 


360 


67 


89612 


34§78 


372 


96 


I234I S896! 


384 


23 


4S&79 61254 


396 


ll 


lli 





408 
420 
432 
444 
456 
468 
480 

492 62 63415 963 

504 59 56646 34955 
516 45 6203 4563 
528 56 62 4 65653 



CUOl 



OP 
TYP 



X 






x 






X 






X 






X 






X 


* 




MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


MT 


MULTIPLY 


TABLE 


AT 


ADD TABLES 


AT 


ADD TABLES 


AT 


ADD TABLES 


AT 


ADD TABLES 


AT 


ADD TABLES 


AT 


ADD TABLES 


AT 


ADD TABLES 


AT 


ADD TABLES 


AT 


ADD TABLES 


X 






Hf 
A 






X 






X 






X 






X 






X 






X 


START 




X 


ROUT IN 




X 


ES. ET 




X 


OS FOL 





Page 1 5 



540 53 56660 3 0/ X 

552 34 00102 K 

564 39 00493 00100 WA 

576 49 01116 B 



LOW. 

CARRIAGE RETURN 

START ROUTINES. ETOS FOLLOW 



588 



X 



ROUTINE 100 
TYPES SENSE SW SETTINGS 



600 


62 


66 7 


1 56 


X 


SWITCH SETUP DATA 


612 


55 


0/6 


266 


X 


SWITCH SETUP DATA 


624 


71 


564 


646 


X 


SWITCH SETUP DATA 


636 


0/ 


6266 


72 


X 


SWITCH SETUP DATA 


648 


56 


55 


/6266 


X 


SWITCH SETUP DATA 


660 




72 5 


64646 


X 


SWITCH SETUP DATA 


672 




0/626 


6 73 


X 


SWITCH SETUP DATA 


684 




5655 


0/62 


X 


SWITCH SETUP DATA 


696 


66 


73 


5646 


x 


SWITCH SETUP DATA 


708 


46 


0/6 


266 


X 


SWITCH SETUP DATA 


720 


74 


565 


5 0/ 


X 


SWITCH SETUP DATA 


732 


62 


66 7 


4 56 


X 


SWITCH SETUP DATA 


744 


46 


46 


/6245 


X 


SWITCH SETUP DATA 


756 


63 


626 


662 


X 


SWITCH SETUP DATA 


768 


46 


5659 


43 


X 


SWITCH SETUP DATA 


780 


64 


70710 


3 


X 


SWITCH SETUP DATA 


792 




63484 


555 


X 


SWITCH SETUP DATA 


804 


62 


63415 


96303 


X 


SWITCH SETUP DATA 


816 


00 


0¥ 




X 




828 


46 


00852 


00100 


BI 


CHECK FOR SW 1 ON 


840 


47 


00876 


00100 


BNI 


CHECK FOR SW 1 OFF 


852 


39 


00601 


00100 


WA 


SW 1 ON 


864 


49 


00888 




B 




876 


39 


00619 


00100 


WA 


SW 1 OFF 


888 


46 


00912 


00200 


BI 


CHECK FOR SW 2 ON 


900 


47 


00936 


00200 


BNI 


CHECK FOR SW 2 OFF 


912 


39 


00639 


00100 


WA 


SW 2 ON 


924 


49 


00948 




B 




936 


39 


00657 


00100 


WA 


SW 2 OFF 


948 


46 


00972 


00300 


BI 


CHECK FOR SW 3 ON 


m 


47 


00996 


00300 


BNI 


CHECK FOR SW 3 OFF 


39 


00677 


00100 


WA 


SW 3 ON 



PN 2128301 
EC 404675 



Page 16 



984 


49 


01008 




B 




996 


39 


00695 


00100 


WA 


SW 3 OFF 


1008 


46 


01032 


00400 


BI 


CHECK FOR SW 4 ON 


1020 


47 


01056 


00400 


BNI 


CHECK FOR SW 4 OFF 


1032 


39 


00715 


00100 


WA 


SW 4 0N 


1044 


49 


01068 




B 




1056 


39 


00733 


00100 


WA 


SW 4 |PFF 


1068 


39 


00753 


00100 


WA 


SJET SWS FOR CUOl THEN 


1080 


48 






H 




1092 


49 


00552 




B 





ROUTINE 001 

BRANCH NO RECORD MARK ON RM EVEN MEMORY PO 



1104 






4 




CONSTANTS 


1116 


45 


01152 


01114 


BNR 


CHECK FOR RM 


1128 


49 


01200 




B 




1140 


41 






NOP 


ERROR ROUTINE 


1152 


46 


01176 


00100 


BI 


CHECK SW 1 IF ON BY ETO 


1164 


39 


01189 


00100 


WA 




1176 


47 


01200 


00300 


BNI 


CHECK SW 3 IF ON STOP ERROR 


1188 


48 


70707 


1 0* 


H 




1200 


46 


01116 


00200 


BI 


CHECK SW 2 IF ON LOOP ROUTINE 


1212 


49 


01236 




B 





ROUTINE 002 

BRANCH NO RECORD MARK ON RM ODD MEMORY POS 



1224 4 

1236 45 01272 01235 

1248 49 01320 

1260 41 

1272 46 01296 00100 



X CONSTANTS 
BNR CHECK FOR RM 
B 

NOP 

ERROR ROUTINE 

BI 



PN 2128301 
EC 404530 



M4 
1368 



45 01428 01354 
49 01380 



Page 17 



US4 


39 


01309 


00100 


WA 


1296 


47 


01320 


00300 


BNI 


08 


48 


70707 


2 0* 


H 


T520 


46 


01236 


00200 


BI 


M32 


49 


01356 




B 



ROUTINE 003 

BRANCH NO RECORD MARK ON 8 IN EVEN MEMORY POSITIO 



X 

BNR 
B 



CONSTANTS 
CHECK FOR NO RM 

ERROR ROUTINE 



1380 


46 


01404 


00100 


BI 


r 192 


39 


01417 


00100 


WA 


404 


47 


01428 


00300 


BNI 


1416 


48 


70707 


3 0* 


H 


"^28 
AlO 


46 


01356 


00200 


BI 


49 


01464 




B 



ROUTINE 004 

BRANCH NO RECORD MARK ON 8 IN ODD MEMORY POSITION 



1452 
^64 
v/476 

1500 
.A512 

GZ4 
1536 
/^48 



8 X 
45 01536 01463 BNR 
49 01488 B 



46 


01512 


00100 


BI 


39 


01525 


00100 


WA 


47 


01536 


00300 


BNI 


48 


70707 


4 0* 


H 


46 


01464 


00200 


BI 


49 


01572 




B 



CONSTANTS 
CHECK FOR NO RM 

ERROR ROUTINE 



PN 2128301 

EC 404675 



Page 18 



ROUTINE 005 

BRANCH NO RECORD MARK ON 2 IN EVEN MEMORY POStf^O 



1560 






2 


X 


1572 


45 


01644 


01570 


BNR 


1584 


49 


01596 




B 


1596 


46 


01620 


00100 


BI 


1608 


39 


01633 


00100 


WA 


1620 


47 


01644 


00300 


BNI 


1632 


48 


70707 


5 0* 


H 


1644 


46 


01572 


00200 


BI 


1656 


49 


01680 




B 



CONSf ANT$ 
CHlECiK FOR NO RM 

ERROR ROUTINE 



ROUTINE 006 

BRANCH NO RECORD MARK ON 2 IN ODD MEMORY POS 



1668 






2 


X 


1680 


45 


01752 


01679 


BNR 


1692 


49 


01704 




B 


1704 


46 


01728 


00100 


BI 


1716 


39 


01741 


00100 


WA 


1728 


47 


01752 


00300 


BNI 


1740 


48 


70707 


6 04 


H 


1752 


46 


01680 


00200 


BI 


1764 


49 


01788 




B 



CONSTANTS 
CHECK FOR NO RM 

ERROR ROUTINE 



ROUTINE 007 

BRANCH NO RECORD MARK ON ZERO IN EVEN MEMORY POS 

1776 X CONSTANTS 

1788 45 01860 01786 BNR CHECK FOR NO RM 

1800 49 01812 B 



PN 2128301 
EC 404530 



Page 19 



ERROR ROUTINE 



1812 


46 


01836 


00100 


BI 


1824 


39 


01849 


00100 


WA 


1836 


47 


01860 


00300 


BNI 


1848 


48 


70707 


7 Of 


H 


1860 


46 


01788 


00200 


BI 


1872 


49 


01896 




B 



ROUTINE 008 

BRANCH NO RECORD MARK ON ZERO IN ODD MEMORY POS 



1884 









X 


1896 


45 


01968 


01895 


BNR 


1908 


49 


01920 




B 


1920 


46 


01944 


00100 


BI 


1932 


39 


01957 


00100 


WA 


1944 


47 


01968 


00300 


BNI 


1956 


48 


70707 


8 01 


H 


1968 


46 


01896 


00200 


BI 


1980 


49 


02004 




B 



CONSTANTS 
CHECK FOR NO RM 

ERROR ROUTINE 



ROUTINE 009 
BRANCH NO FLAG ON FLAG EVEN MEMORY POS 



1992 






I 


X 


2004 


44 


02028 


02002 


BNF 


2016 


49 


02076 




B 


2028 


46 


02052 


00100 


BI 


2040 


39 


02065 


00100 


WA 


2052 


47 


02076 


00300 


BNI 


2064 


48 


70707 


9 0* 


H 


2076 


46 


02004 


00200 


BI 


2088 


49 


02112 




B 



CONSTANTS 
CHECK FOR FLAG 

ERROR ROUTINE 



PN 2128301 
EC 404530 



Page 20 



ROUTINE 010 
BRANCH NO FLAG ON FLAG ODD MEMORY POS 



2100 






1 


X 


2112 


44 


02136 


02111 


BNF 


2124 


49 


02184 




B 


2136 


46 


02160 


00100 


BI 


2148 


39 


02173 


00100 


WA 


2160 


47 


02184 


00300 


BNI 


2172 


48 


70717 


0/ 


H 


2184 


46 


02112 


00200 


BI 


2196 


49 


02220 




B 



CONSTANTS 
CHECK FOR FLAG 

ERROR ROUTINE 



ROUTINE Oil 
BRANCH NO FLAG ON NO FLAG EVEN MEMORY POS 



2208 









x 


2220 


44 


02292 


02218 


BNF 


2232 


49 


02244 




B 


2244 


46 


02268 


00100 


BI 


2256 


39 


02281 


00100 


WA 


2268 


47 


02292 


00300 


BNI 


2280 


48 


70717 


1 0* 


H 


2292 


46 


02220 


00200 


BI 


2304 


49 


02328 




B 



CONSTANTS 



ERROR ROUTINE 



ROUTINE 012 
BRANCH NO FLAG ON NO FLAG ODD MEMORY POS 



2316 
2328 
2340 



44 02400 02325 
49 02352 



X 

BNF 



CONSTANTS 



PN 2128301 
EC 404530 



Page 21 



ERROR ROUTINE 



2352 


46 


02376 


00100 


BI 


2364 


39 


02389 


00100 


WA 


2376 


47 


02400 


00300 


BNI 


2388 


48 


70717 


2 04 


H 


2400 


46 


02328 


00200 


BI 


2412 


49 


02436 




B 



2424 






1 


2436 


43 


02496 


02434 


2448 


46 


02472 


00100 


2460 


39 


02485 


00100 


2472 


47 


02496 


00300 


2484 


48 


70717 


3 0* 


2496 


46 


02436 


00200 


2508 


49 


02532 





2520 






2 


2532 


43 


02592 


02531 


2544 


46 


02568 


00100 


2556 


39 


02581 


00100 


2568 


47 


02592 


00300 


2580 


48 


70717 


4 0/ 


2592 


46 


02532 


00200 


2604 


49 


02628 





ROUTINE 013 
BRANCH ON DIGIT 1 

X CONSTANTS 
BD CHECK FOR A 1 
ERROR ROUTINE 

BI 

WA 

BNI 

H 

BI 

B 



ROUTINE 014 
BRANCH ON DIGIT 2 

X CONSTANTS 
BD CHECK FOR A 2 
ERROR ROUTINE 

BI 

WA 

BNI 

H 

BI 

B 



PN 2128301 
EC 404530 



Page 22 



2616 






4 


2628 


43 


02688 


02626 


2640 


46 


02664 


00100 


2652 


39 


02677 


00100 


2664 


47 


02688 


00300 


2676 


48 


70717 


5 04 


2688 


46 


02628 


00200 


2700 


49 


02724 





ROUTINE 015 
BRANCH ON DIGIT 4 

X CONSTANTS 
BD CHECK FOR A 4 
ERROR ROUTINE 

BI 

WA 

BNI 

H 

BI 

B 



2712 






8 


2724 


43 


02784 


02723 


2736 


46 


02760 


00100 


2748 


39 


02773 


00100 


2760 


47 


02784 


00300 


2772 


48 


70717 


6 0? 


2784 


46 


02724 


00200 


2796 


49 


02820 





ROUTINE 016 
BRANCH ON DIGIT 8 

X CONSTANTS 
BD CHECK FOR AN 8 
ERROR ROUTINE 

BI 

WA 

BNI 

H 

BI 

B 



2808 
2820 43 02844 02818 
2832 49 02892 



ROUTINE 017 
BRANCH ON DIGIT 

X CONSTANTS 

BD CHECK FOR ZERO 

B 



PN 2128301 
EC 404530 



Page 23 



ERROR ROUTINE 



2844 


46 


02868 


00100 


BI 


2856 


39 


02881 


00100 


WA 


2868 


47 


02892 


00300 


BNI 


2880 


48 


70717 


7 0* 


H 


2892 


46 


02820 


00200 


BI 


2904 


49 


02928 




B 



ROUTINE 018 
TRANS DIGIT FROM EVEN TO EVEN MEMORY POS 



2916 






4 


X 


CONSTANTS AND WORKING AREA 


2928 


25 


02922 


02926 


TD 


TRANS RM 


2940 


45 


03000 


02922 


BNR 


CHECK FOR RM 


2952 


25 


02922 


02924 


TD 


TRANS ZERO 


2964 


43 


03000 


02922 


BD 


CHECK FOR NO DIGIT 


2976 


49 


03048 




B 




2988 


41 






NOP 


ERROR ROUTINE 


3000 


46 


03024 


00100 


BI 




3012 


39 


03037 


00100 


WA 




3024 


47 


03048 


00300 


BNI 




3036 


48 


70717 


8 04 


H 




3048 


46 


02928 


00200 


BI 




3060 


49 


03084 




B 





ROUTINE 019 
TRANS DIGIT FROM ODD TO ODD MEMORY POS 



3072 






4 


X 


CONSTANTS AND WORKING AREA 


3084 


25 


03077 


03083 


TD 


TRANS RM 


3096 


45 


03156 


03077 


BNR 


CHECK FOR RM 


3108 


25 


03077 


03081 


TD 


TRANS ZERO 



PN 2128301 
EC 404530 



Page 24 



3120 


43 


03156 


03077 


BD 


3132 


49 


03204 




B 


3144 


41 






NOP 


3156 


46 


03180 


00100 


BI 


3168 


39 


03193 


00100 


WA 


3180 


47 


03204 


00300 


BNI 


3192 


48 


70717 


9 04 


H 


3204 


46 


03084 


00200 


BI 


3216 


49 


03240 




B 



CHECK FOR NO PIGIT 



ERROR ROUTINE 



ROUTINE 020 

TRANS DIGIT FROM EVEN TO ODD MEMORY POSITION 



3228 






t 


X 


CONSTANTS AND WORKING AREA 


3240 


25 


03233 


03238 


TD 


TRANS RM 


3252 


45 


03312 


03233 


BNR 


CHECK FOR RM 


3264 


25 


03233 


03236 


TD 


TRANS ZERO 


3276 


43 


03312 


03233 


BD 


CHECK FOR NO DIGIT 


3288 


49 


03360 




B 




3300 


41 






NOP 


ERROR ROUTINE 


3312 


46 


03336 


00100 


BI 




3324 


39 


03349 


00100 


WA 




3336 


47 


03360 


00300 


BNI 




3348 


48 


70727 


0* 


H 




3360 


46 


03240 


00200 


BI 




3372 


49 


03396 




B 





ROUTINE 021 
TRANS DIGIT FROM ODD TO EVEN MEMORY POS 

3384 # X CONSTANTS AND WORKING AREA 

3396 25 03390 03395 TD TRANS RM 
3408 45 03468 03390 BNR CHECK FOR RM 



PN 2128301 

EC 404675 



Page 25 



3 4E0 


25 


03390 


03393 


TD 


3432 


43 


03468 


03390 


BD 


3444 


49 


03516 




B 


3456 


41 






NOP 


3468 


46 


03492 


00100 


BI 


3480 


39 


03505 


00100 


WA 


3492 


47 


03516 


00300 


BNI 


3504 


48 


70727 


1 0* 


H 


3516 


46 


03396 


00200 


BI 


3528 


49 


03552 




B 



TRANS ZERO 
CHECK FOR NO DIGIT 



ERROR ROUTINE 



ROUTINE 022 

TRANS IMMED RECORD MARK TO EVEN MEMORY FOS 



3540 








X 


WORKING AREA 


3552 


15 


03546 


0000* 


TDM 


TRANS IMMED RM 


3564 


45 


03624 


03546 


BNR 


CHECK FOR RM 


3576 


15 


03546 


00000 


TDM 


TRANS IMMED ZERO 


3588 


43 


03624 


03546 


BD 


CHECK FOR NO DIGIT 


3600 


49 


03672 




B 




3612 


41 






NOP 


ERROR ROUTINE 


3624 


46 


03648 


00100 


BI 




3636 


39 


03661 


00100 


WA 




3648 


47 


03672 


00300 


BNI 




3660 


48 


70727 


2 0* 


H 




3672 


46 


03552 


00200 


BI 




3684 


49 


03708 




B 





PN 2128301 
EC 404568 



Page 26 



ROUTINE 023 

TRAN£ IMME0 RECORD MARK TO ODD MEMORY POS 



3696 








X 


WORKING AREA 


3708 


15 


03701 


0000* 


TDM 


TRANS IMMED RM 


3720 


45 


03780 


03701 


BNR 


CHECK FOR RM 


3732 


15 


03701 


00000 


TDM 


TRANS IMMED ZERO 


3744 


43 


03780 


03701 


BD 


CHECK FOR NO DIGIT 


3756 


49 


03828 




6 




3768 


41 






NOP 


ERROR ROUTINE 


3780 


46 


03804 


00100 


BI 




3792 


39 


03817 


00100 


WA 




3804 


47 


03828 


00300 


BNI 




3816 


48 


70727 


3 0* 


H 




3828 


46 


03708 


00200 


BI 




3840 


49 


03864 




B 





ROUTINE 024 
TRANS FIELD-2 CHAR CM TO ODD MEMORY POS 



3852 






V . 


X 


CONSTANTS AND WORKING AREA 


3864 


26 


03857 


03863 


TF 


TRANS 


3876 


45 


03924 


03857 


BNR 


CHECK FOR RM 


3888 


44 


03924 


03856 


BNF 


CHECK FOR FLAG 


3900 


49 


03972 




B 




3912 


41 






NOP 


ERROR ROUTINE 


3924 


46 


03948 


00100 


BI 




3936 


39 


03961 


00100 


WA 




3948 


47 


03972 


C0300 


BNI 




3960 


48 


70727 


4 0* 


H Y.: 




3972 


46 


03864 


00200 


BI 




3984 


49 


04008 









PN 2128301 

EC 404675 



Page 27 



ROUTINE 0&5 
TRANS FIEL% - 2 CHAR (1 4) TO EVEN MEMORY POS 



3996 








X 


CONSTANTS? ANp WORKING AREA 


4008 


26 


04002 


04006 


TF 


TRANS 1£ 


4020 


45 


04068 


04002 


BNR 


CHECK FOR RM 


4032 


44 


04068 


04001 


BNF 


CHECK FOR FLAG 


4044 


49 


04116 




B 




4056 


41 






NOP 


ERROR ROUTINE 


4068 


46 


04092 


00100 


BI 




4080 


39 


04105 


00100 


WA 




4092 


47 


04116 


00300 


BNI 




4104 


48 


70727 


5 0* 


H 




4116 


46 


04008 


00200 


BI 




4128 


49 


04152 




B 





ROUTINE 026 
TRANS FIELD IMMED - 3 CHAR (17^) 



4140 








X 


WORKING AREA 


4152 


16 


04145 


00l7* 


TFM 


TRANS 17^ 


4164 


45 


04212 


04145 


BNR 


CHECK FOR RM 


4176 


44 


04212 


04143 


BNF 


CHECK FOR FLAG 


4188 


49 


04260 




B 




4200 


41 






NOP 


ERROR ROUTINE 


4212 


46 


04236 


00100 


BI 




4224 


39 


04249 


00100 


WA 




4236 


47 


04260 


00300 


BNI 




4248 


48 


70727 


6 0* 


H 




4260 


46 


04152 


00200 


BI 




4272 


49 


04308 




B 





PN 2128301 

EC 404675 



Page 28 



ROUTINE 027 
TRANS RECORD- 6 CHAR 



(12480*) TO ODD MEMORY POS 



4284 




I 


2480? 


X 


CONSTANTS 


4296 








X 


WORKING AREA 


4308 


31 


04301 


04290 


TR 


TRANS RECORD - 12480* 


4320 


44 


04368 


04301 


BNF 


CHEQC FOR FIRST CHARACTER 


4332 


45 


04368 


04306 


BNR 


CHEC§£ FOR LAST CHARACTER 


4344 


49 


04416 




B 




4356 


41 






NOP 


ERR OH ROUTINE 


4368 


46 


04392 


00100 


BI 




4380 


39 


04405 


00100 


WA 




4392 


47 


04416 


00300 


BNI 




4404 


48 


70727 


7 0* 


H 




4416 


46 


04308 


00200 


BI 




4428 


49 


04452 




B 





4440 




i 


2480* 


X 


4452 


27 


04596 


04451 


BT 


4464 


44 


04656 


04594 


BNF 


4476 


49 


04704 




B 


4488 


41 






NOP 


4500 


41 






NOP 


4512 


46 


04536 


00100 


BI 


4524 


39 


04549 


00100 


WA 


4536 


47 


04560 


00300 


BNI 


4548 


48 


70727 


8 0* 


H 


4560 


46 


04452 


00200 


BI 


4572 


49 


04620 




B 



ROUTINE 028 
BRANCH AND TRANS 6 CHAR (T2480?) 
CONSTANTS 

BRANCH TO 04596 AND TRANS FIELD 
CHECK 04594 FOR FLAG 



ERROR ROUTINE 
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04595 


BNR 


4608 


44 
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BNF 


4620 


15 


04594 
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SUB-ROUTINE 528 
THIS IS ROUTINE BRANCHED TO IN 028. CHKS TRANS 
CORRECT. CHANGES TO I and BB to MAIN ROUTINE 
WORKING AREA 
CHECK LOW ORDER FOR RM 
CHECK HIGH ORDER FOR FLAG 
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4632 
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CLEAR TRANSMITTED FIELD 
BRANCH BACK TO 04464 
ERROR ROPTINE 



ROUTINE 029 

BRANCH AND TRANS IMMEO TRANS 3 CHAR FIELD (T7?) 
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BRANCH TO 04872 AND TRANS FIELD 
CHECK 04868 FOR FLAG 



ERROR ROUTINE 



SUB -ROUTINE 529 
THIS IS ROUTINE BRANCHED TO IN 029. CHKS TRANS 
CORRECT. CHANGES 7 TO I AND BB TO MAIN ROUTINE 



4860 
4872 
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4896 
4908 
4920 



45 04788 04871 
44 04788 04869 
16 04870 OOOOl 
42 04968 
41 
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NOP 



WORKING AREA 
CHECK LOW ORDER FOR RM 
CHECK HIGH ORDER FOR FLAG 
TRANS FIELD 101 IMMED 
BRANCH BACK TO 04740 
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ERROR ROUTINE 
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ROUTINE 030 
SET FLAG ON CHAR WITH FLAG AND C BIT (8) 
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46 


05028 
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TURN OFF MBR E CHECK 
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ROUTINE 031 
SET FLAG ONTSHHTtffTH FLAG AND NO C BIT ¥ 
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5208 
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WORKING AREA 

TURN OFF MBR O CHECK 

SET FLAG ON 6 

CHECK FLAG NOT REMOVED 

CHECK C BIT NOT REMOVED 
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ERROR ROfJTttfP 
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ROUTINE 032 
SET FLAG ON CHAR WITH C BIT AND NO FLAG(5) 
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SET FLAG ON 5 
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05376 
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BNF 


CHECK FOR FLAG 
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BI 
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RESTORE TO 5 
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NOP 


ERROR ROUTINE 
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ROUTINE 033 
SET FLAG BIT ON CHAR WITH NO C BIT OR FLAG(4) 
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32 


05459 




SF 


SET FLAG ON 4 
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44 


05532 


05459 


BNF 


CHECK FOR FLAG 


5484 


46 


05532 


01700 


BI 


CHECK C BIT 
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5544 


39 
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00100 


WA 
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47 
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RESTORE TO 4 



ERROSt ROUTINE 



ROUTINE 034 
CLEAR FLAG ON CHAR WITH NO FLAG OR C BIT(l) 
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5616 
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CF 


CLEAR FLAG ON 1 
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44 
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CHECK FLAG NOT ADDED 
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ENTER ERROR IF FLAG 
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46 
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CHECK C BIT NOT INSERTED 
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49 
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NOP 


ERROR ROUTINE 
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ROUTINE 035 

CLEAR FLAG ON CHAR WITH NO FLAG BUT WITH C BIT(J) 

5760 3 X WORKING AREA 

5772 33 05769 CF CLEAR FLAG 

5784 44 05808 05769 BNF CHECK FLAG NOT INSERTED 
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05928 




B 



ENTER ERROR IF FLAG 
CHECK C B|T NOT REMOVED 

ERROBL ROUTINE 



ROUTINE 036 
CLEAR FLAG ON CHAR WITH FLAG BUT NO C BIT $) 
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ENTER ERROR IF FLAG 


5964 


46 


06000 


01600 
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CHECK IF C BIT INSERTED 
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SF 


RESTORE FLAG 
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ERROR ROUTINE 
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ROUTINE 037 
CLEAR FLAG ON CHAR WITH FLAG AND C BIT (?) 

6072 7 X WORKING AREA 

6084 33 06081 CF CLEAR FLAG ON 7 

6096 44 06120 06081 BNF CHECK FOR NO FLAG 
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49 
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ENTER ERROR IF FLAG 
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CHECK C BIT REMOVED 
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ERROR ROUTINE 
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49 
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ROUTINE 038 

CHECK HI-POS AND EQ- ZERO TRIGS FOR H/P NOT E/Z 
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ROUTINE 039 

CHK HI-POS AND EQ- ZERO TRIGS FOR NOT H/P NOT E/Z 
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ROUTINE 040 

CHK HI-POS AND EQ- ZERO TRIGS FOR NOT H/P NOT E/Z 



6636 






8811 


X 


CONSTANTS AND WORKING AREA 


6648 


26 


06641 


06647 


TF 


SET 11 IN P FIELD 


6660 


21 


06641 


06645 


A 


ADD MINUS 88 TO 11 


6672 


46 


06732 


01100 


BI 


CHECK H/P FOR NOT H/P 


6684 


46 


06768 


01200 


BI 


CHECK E/Z FOR NOT E/Z 


6696 


49 


06816 




B 




6708 


41 






NOP 




6720 


41 






NOP 


ERROR ROUTINE 


6732 


46 


06684 


00100 


BI 




6744 


38 


06763 


00100 


WN 




6756 


49 


06684 


040/ 


B 




6768 


46 


06792 


00100 


BI 




6780 


39 


06805 


00100 


WA 




6792 


47 


06816 


00300 


BNI 




6804 


48 


75747 


0/ 


H 




6316 


46 


06648 


00200 


BI 




6828 


49 


06852 




B 





PN 2128301 
EC 404530 



Page 36 



ROUTINE mi 

CHK HI-POS AND 3BQ-ZERO TRIGS FOR H/P NOT E/ £ 
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ROUTINE 042 

CHK HI-POS AND EQ- ZERO TRIGS FOR E/Z NOT H/P 
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ERROR ROUTINE 
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ROUTINE 043 

CHK HI-POS AND EQ- ZERO TRIGS FOR H/P NOT E/Z 
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ROUTINE 044 

CHK HI-POS AND EQ- ZERO TRIGS FOR NOT H/P NOT E/Z 
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01100 


BI 


CHECK H/P TRIG FOR NOT H/P 
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BI 


CHECK E/Z TRIG FOR NOT E/Z 
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ERROR ROUTINE 
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ROUTINE 045 

CHECK HI-PQS AND EQ- ZERO TRIGS FOR E/Z, NOT H/P 
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ERROR ROUTINE 



ROUTINE 046 

CHECK HI-POS AND EQ- ZERO TRIGS FOR H/P NOT E/Z 
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8040 46 08064 00100 BI 

8052 39 08077 00100 WA 

8064 47 08088 00300 BNI 

8076 48 75747 6 0* H 

8088 46 07896 00200 BI 

8100 49 08124 B 



ROUTINE 047 

CHK HI-POS AND EQ- ZERO TRIGS FOR NOT H/P NOT E/Z 
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46 


08124 


00200 


BI 




8328 


49 


08352 









8340 §822 

8352 26 08345 08351 

8364 22 08345 08349 

8376 47 08436 01100 



ROUTINE 048 
CHK HI-POS AND EQ-ZERO TRIGS FOR H/P NOT E/Z 

X CONSTANTS AND WORKING AREA 

TF SET -22 IN P FIELD 

S SUBT -88 FROM -22 

BNI CHECK H/P TRIG FOR H/P 

PN 2128301 
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8388 46 08496 01200 BI 

8400 49 08544 B 

8412 41 NOP 

8424 41 HOP 



8436 


46 


08460 


00100 


BI 


8448 


39 


08473 


00100 


WA 


8460 


47 


08484 


00300 


BNI 


8472 


48 


70747 


8 0/ 


H 


8484 


49 


08388 




B 


8496 


46 


08520 


00100 


BI 


8508 


39 


08533 


00100 


WA 


8520 


47 


08544 


00300 


BNI 


8532 


48 


75747 


8 0/ 


H 


8544 


46 


08352 


00200 


BI 


8556 


49 


08580 




B 



CHECK E/Z TRIO FOR NOT E/Z 



ERROR ROUTINE 



ROUTINE 049 

CHK HI-POS AND EQ-ZERO TRIGS FOR NOT H/P NOT E/Z 



8568 






1144 


X 


CONSTANTS AND WORKING AREA 


8580 


26 


08573 


08578 


TF 


SET -44 IN P FIELD 


8592 


22 


08573 


08576 


S 


SUBT -11 FROM -44 


8604 


46 


08664 


01100 


BI 


CHECK H/P TRIG FOR NOT H/P 


8616 


46 


08724 


01200 


BI 


CHECK E/Z TRIG FOR NOT E/Z 


8628 


49 


08772 




B 




8640 


41 






NOP 




8652 


41 






NOP 


ERROR ROUTINE 


8664 


46 


08688 


00100 


BI 




8676 


39 


08701 


00100 


WA 




8688 


47 


08712 


00300 


BNI 




8700 


48 


70747 


9 04 


H 




8712 


49 


08616 




B 




8724 


46 


08748 


00100 


BI 




8736 


39 


08761 


00100 


WA 




8748 


47 


08772 


00300 


BNI 




8760 


48 


75747 


9 0* 


H 




8772 


46 


08580 


00200 


BI 




8784 


49 


08808 




B 
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ROUTINE 050 

CHK HI-POS AND EQ-ZERO TRIGS FOR E/Z NOT H/P 



8796 






33 


X 


CONSTANTS AND WORKING AREA 


8808 


26 


08801 


08806 


TF 


SET -33 IN P FIELD 


8820 


22 


08801 


08806 


s 


SUBT -33 FROM -33 


8832 


46 


08892 

\J \J \J J €m 


01 100 


Bl 


CHECK H/P TRIG FOR NOT H/P 


8844 


47 


089 t i2 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


8856 


49 


09000 




B 




8868 


4l 






NOP 




8880 








NOP 


ERftOR ROUTINE 


8892 


46 

» w 


08916 


00100 


Bl 




8904 


39 


08929 


00100 


WA 




8916 


47 


08940 


00300 


BNI 




8928 


48 


70757 


0/ 


H 




8940 


49 


08844 




B 




8952 


46 


08976 


00100 


Bl 




8964 


39 


08989 


00100 


WA 




8976 


47 


09000 


00300 


BNI 




8988 


48 


75757 


0/ 


H 




9000 


46 


08808 


00200 


Bl 




9012 


49 


09036 




B 





ROUTINE 051 
CHECK FOR CORRECT MEMORY LOOKUP ON ADD 



9024 






9966 


X 


CONSTANTS AND WORKING AREA 


9036 


15 


00369 




TDM 


SET RM IN MEMORY POS 369 


9048 


26 


09029 


09035 


TF 


SET 66 IN P FIELD 


9060 


21 


09029 


09033 


A 


ADD 99 TO 66 


9072 


^5 


09120 


09029 


BNR 


CHECK RESULT FOR RM 


9084 


49 


09168 




B 




9096 


41 






NOP 




9108 


41 






NOP 


ERROR ROUTINE 


9120 


46 


09144 


00100 


Bl 




9132 


39 


09157 


00100 


WA 




9144 


47 


09168 


00300 


BNI 




9156 


48 


70757 


1 (¥ 


H 




9168 


15 


00369 


5 


TDM 


RESTORE ADD TABLE POS. 369 


9180 


46 


09036 


00200 


Bl 




9192 


49 


092 16 




B 
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ROUTINE 052 
CHECK FOR CORRECT MEMORY LOOK UP ON ADO 



9204 






99oo 


X 


CONSTANT:* AND WvKMNG AREA 


92 lb 


«5 


0U39O 


r 


TDM 


SET Rn IN MEMORY P05. yyo 


922o 


2b 


09209 


AO'S 1 t 
092 13 


TF 


ec* oq 111 n r in n 
SET 99 IN P FIELD 




1 
L 1 






A 

A 


Ann CCs. Tn QQ 
AuU DO fU 99 


9252 


45 


09300 


09209 


BNR 


CHECK RESULT FOR RM 


9264 


49 


09348 




6 




9276 


41 






NOP 




9288 


41 






NOP 


ERROR ROUTINE 


9300 


46 


09324 


00100 


Bi 




9312 


39 


09337 


00100 


WA 




93 24 


47 


09348 


00300 


BNi 




9336 


48 


70757 


2 pi 


H 




9348 


15 


00396 


5 


TDM 


RESTORE ADD TABLE P0S 


9360 


46 


09216 


00200 


BI 




9372 


49 


09396 




B 





ROUTINE 053 
CHECK FOR CORRECT MEMORY LOOK UP ON SUBT 



9384 






9966 


X 


CONSTANTS AND WORKING AREA 


9396 


15 


00303 




TDM 


SET RM IN MEMORY POSITION 303 


9408 


26 


09389 


09395 


TF 


SET -66 IN P FIELD 


9420 


22 


09389 


09393 


S 


SUBT -99 FROM -66 


0432 


45 


09480 


09389 


BNR 


CHECK RESULT FOR RM 


9444 


49 


09528 




B 




9456 


41 






NOP 




9468 


41 






NOP 


ERROR ROUTINE 


9480 


46 


09504 


00100 


BI 




9492 


39 


09517 


00100 


WA 




9504 


47 


09528 


00300 


BNI 




9516 


48 


70757 


3 0* 


H 




9528 


15 


00303 


3 


TDM 


RESTORE ADD TABLE POS. 303 


9540 


46 


09396 


00200 


BI 




9552 


49 


09576 




B 
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ROUTINE 05^ 
CHECK FOR CORRECT MEMORY LOOK UP ON SUBT 



9564 




1 


11666 


X 


CONSTANTS AND WORKING AREA 


9576 


15 


OO305 




TDM 


SET RM IN MEMORY POS. 305 


9588 


26 


09569 


09572 


TF 


SET 111 IN P FIELD 


9600 


22 


09569 


09575 


S 


SUBT 666 FROM 11 1 


9612 


45 

• 


09660 


09568 


BNR 


CHECK RESULT FOR RECORD MARK 


9624 


49 


09708 




B 




9636 


41 






NOP 




9648 


41 






NOP 


ERROR ROUTINE 


9660 


46 


09684 


00100 


Bl 




9672 


39 


09697 


00100 


WA 




9684 


47 


09708 


00300 


BNi 




9696 


48 


70757 


4 0/ 


H 




9708 


15 


00305 


5 


TOM 


RESTORE ADD TABLE POS. 305 


9720 


46 


09576 


00200 


Bl 




9732 


49 


09756 




B 





ROUTINE 055 
CHECK FOR CORRECT MEMORY LOOK UP ON SUBT 



9744 




9 


99888 


X 


CONSTANTS AND WORKING AREA 


9756 


15 


00301 




TDM 


SET RM IN MEMORY POS. 301 


9768 


26 


09749 


09755 


TF 


SET 888 IN P FIELD 


9780 


22 


09749 


09752 


S 


SUBT 999 FROM 888 


9792 


45 


09840 


09748 


BNR 


CHECK RESULT FOR RECORD MARK 


9804 


49 


09888 




B 




9816 


41 






NOP 




9828 


41 






NOP 


ERROR ROUTINE 


9840 


46 


09864 


00100 


Bl 




9852 


39 


09877 


00100 


WA 




9864 


47 


09888 


00300 


BNI 




9876 


48 


70757 


5 0/ 


H 




9888 


15 


00301 


1 


TDM 


RESTORE ADD TABLE POS. 301 


9900 


46 


09756 


00200 


Bl 




9912 


49 


09936 




B 
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ROUTINE 056 
CHECK OVERFLOW TRIG 



9924 






1288 


X 


CONSTANTS AND WORKING AREA 


9936 


46 


09948 


01400 


Bl 


TURN OFF OVERFLOW 


9948 


26 


09929 


09935 


TF 


SET 8$ IN P FIELD 


9960 


21 


09929 


09933 


A 


ADD 1£ TO 88 


9972 


47 


10020 


01400 


BNI 


CHECIC FOR OVERFLOW 


9984 


49 


10068 




B 




9996 


41 






NOP 




10008 


41 






NOP 














ERROR ROUTINE 


10020 


46 


10044 


00100 


BI 




10032 


39 


10057 


00 100 


W A 




10044 


47 


10068 


00300 


BNI 




10056 


48 


70757 


6 0^ 


H 




10068 


46 


09936 


00200 


BI 




10080 


49 


10104 




B 














ROUTINE 057 










CHECK OVERFLOW TRIG 


10092 






55 


X 


CONSTANTS AND WORKING AREA 


10104 


46 


10116 


01400 


BI 


TURN OFF OVERFLOW 


10116 


26 


10097 


10103 


TF 


S$T 55 IN P FIELD 


10128 


11 


10097 


222 


AM 


ADD 222 TO 55 IMMED 


10140 


47 


10188 


01400 


BNI 


CHECK FOR OVERFLOW 


10152 


49 


10236 




B 




10164 


41 






NOP 




10176 


41 






NOP 














ERROR ROUTINE 


10188 


46 


10212 


C0100 


BI 




10200 


39 


10225 


00100 


WA 




10212 


47 


10236 


00300 


BNI 




10224 


48 


70757 


7 Of 


H 




10236 


46 


10104 


00200 


BI 




10248 


49 


10272 




B 
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ROUTINE OSS 
CHECK OVERf LOW TRIG 



10260 






73 


X 


CONSTANTS AN0 WORKING AREA 


10272 


46 


10284 


01400 


BI 


TURN OFF OVERFLOW 


«s 0284 


26 


10265 


10271 


TF 


SET -73 IMP FIIELD 


10296 


12 


10265 


27 


SM 


SUBT 27 FROM 73 IMMED 


10308 


47 


10356 


01400 


BNI 


CHECK FOR OVERFLOW 


10320 


49 


10404 




B 




10332 


41 






NOP 




10344 


41 






NOP 














ERROR ROUTINE 


10356 


46 


10380 


00100 


BI 




10368 


39 


10393 


00100 


WA 




10390 


47 


10404 


00300 


BNI 




10392 


48 


70757 


8 0* 


H 




10404 


46 


10272 


00200 


BI 




10416 


49 


10440 




B 














ROUTINE 059 










CHECK OVERFLOW TRIG 


10428 






5q 

7 7 


X 


CONSTANTS AND WORKING AREA 


10440 


46 


10452 


01400 


BI 


TURN OFF OVERFLOW 


10452 


26 


10433 


1 04^Q 

X U i J 7 


TF 


SET 99 IN P FIELD 


10464 


12 


10433 

1 V i J J 


111 
X 1 X 


SM 


SUBT 111 FROM 99 


10476 


47 


1 W tit 


n 1 4nn 

U x *rv/U 


BNI 


CHECK FOR OVERFLOW 


1 04RR 


4Q 


1U3 (6. 




B 




10500 


41 






NOP 




10512 


41 






NOP 














ERROR ROUTINE 


10524 


46 


10548. 


00100 


BI 




10536 


39 


10561 


00100 


WA 




10548 


47 


10572 


00300 


BNI 




10560 


48 


70757 


9 0/ 


H 




10572 


46 


10440 


00200 


BI 




10584 


49 


10608 




B 
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ROUTINE 060 
CHECK COMPARE Fp H/P 



10596 






44l8 


XX 


CONSTANTS AND WORKING AREA 


1 0608 


26 


10601 


10607 


TP 


SET 88 IN P FIELD 


10620 


24 


10601 


1 06O5 


c 


COMPARE 4% TO 8p RESULT H/l 


10632 


47 


1 0680 


01 100 


BN! 


CHECK H/P TRIG FOR H/P 

wiiwwi% fir • 1 n 1 w 1 vi » fir* 


10644 

I Vw I I 


49 


10728 




B 




10656 


41 






NOP 




10668 


41 






NOP 














ERROR ROUTINE 


10680 


46 


10704 


00100 


Bl 




10692 


39 


10717 


00100 


WA 




1070if 


47 


10728 


00300 


BNI 




10716 


48 


70767 


0/ 


H 




10728 


46 


10608 


00200 


Bl 




107^0 


49 


10764 




B 














ROUTINE 06 1 












CHECK COMPARE FOR H/P 


10752 






99Tl 


X 


CONSTANTS AND WORKING AREA 


10764 


26 


10757 


1 0763 


TF 


SET 11 IN P FIELD 


10776 


24 


10757 


10761 


C 


COMPARE -22 TO II 


10788 


47 


1 0836 


01100 


BNI 


CHECK H/P TRIG FOR H/P 

W I 1 W w 1 * 1 1/ I 1 H I W I Wit fir I 


10800 


46 


IO836 


01200 


Bl 


CHECK E/2 TRIG FOR NOT E/Z 


1 08 1 2 


46 


IO836 


01400 


Bf 


CHECK 0/F TRIG FOR NO 0/F 

vi 1 w vn w f 1 1 it 1 w 1 wit i»w w» * 


10824 


49 


10884 


















ERROR ROUTINE 


10836 


46 


10860 


00100 


Bl 




1 0848 


39 


10873 


00100 


WA 




10860 


47 


10884 


00300 


BNI 




10872 


48 


70767 


1 OA 


H 




10884 


46 


10764 


00200 


B! 




10896 


49 


10920 




B 
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ROUTINE 062 
CHECK COMPARE FOR H/P 



1 norifl 






1 7-JO 




v<# V/1NO J. /UN I/O i\iHU W vyx\.X\ JU.N Uf t\.tS.J-tJr\. 




CO 


1 no 1 % 

1 U7 1 -5 


1 no 1 q 
1U7 17 


rp m 
1 J? 


QPT CO TIM t> tPTITT f% 
OHi J. iDO lip Jr J? ills JUL* 


1 U 7 DC, 


£4 


1 no 1 % 

1 U7 1 J 


1 U7 1 f 


c 


/th^td a n tr 70 Tfi eja 

v> vyiVLt^ /VtvE* - 17 Xv/ - JO 




A 7 


lU77fa 


u 1 iuu 


JJlNl 


\_»rlil<L/x\ rxi f x xvlvj x v/xv tlf Jr 


10956 


49 


11040 




B 




10968 


41 






NOP 




10980 


41 






NOP 














ERROR ROUTING 


1 noo? 
1U776 


4u 


1 1 n 1 £ 
1 1 U 1 


uu iuu 


TIT 




11004 


39 


11029 


00100 


WA 




11016 


47 


11040 


00300 


BNI 




11028 


48 


70767 


2 ,0/ 


H 




11040 


46 


10920 


00200 


BI 








llUlO 




"Ft 














ROUTINE 063 










CHECK COMPARE FOR E/Z 


1 1 n A4 






7Q 
17 


X 


CONSTANTS AND WORKING AREA 


1 1 f!7 A 
1 lu 1 D 




1 1 U07 


1 1 U i D 


TF 


SET 79 IN P FIELD 


1 1AQQ 

1 IU00 




1 IUdV 


1 1 At C 

1 1\)7d 


C 


COMPARE 79 TO 79 


111 ft(\ 

111 UU 


A "7 


HMO 

1 1 14o 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


11112 


49 


1 1 1 ft Z. 

11196 




B 




11124 


41 






NOP 




11136 


41 






NOP 














ERROR ROUTINE 


11148 


46 


11172 


00100 


BI 




11160 


39 


11185 


00100 


WA 




11172 


47 


11196 


00300 


BNI 




Ml 84 


48 


70767 


3 0* 


H 




11196 


46 


11076 


00200 


BI 




11208 


49 


11232 




B 
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ROUTINE 064 
CHECfC COMPARE FOR E/Z 



11220 






68 


X 


CONSTANTS AND WORKING AREA 


11232 


26 


11225 


11230 


TF 


SET -68 IN P FIELD 


11244 


24 


11225 


11230 


C 


COMPARE -68 TO -68 


11256 


47 


11 $04 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


11268 


49 


11352 




B 




11280 


41 






NOP 




11292 


41 






NOP 














ERROR, ROUTINE 


11304 


46 


11328 


00100 


BI 




11316 


39 


11341 


00100 


WA 




11328 


47 


11352 


00300 


BNI 




11340 


48 


70767 


4 0/ 


H 




11352 


46 


11232 


00200 


BI 




11364 


49 


11388 




B 














ROUTINE 065 










CHECK COMPARE FOR NOT H/P NOT E/i 


11376 






8768 


X 


CONSTANTS AND WORKING AREA 


11388 


26 


11381 


1 1387 


TF 


SET 68 IN P FIELD 


11400 


24 


11381 


11385 


C 


COMPARE 87 TO 68 


11412 


46 


11472 


01100 


BI 


CHECK H/P TRIG FOR NOT H/P 


11424 


46 


11472 


01200 


BI 


CHECK E/Z TRIG FOR NOT E/Z 


11436 


49 


11520 




B 




11448 


41 






NOP 




11460 


41 






NOP 














ERROR ROUTINE 


11472 


46 


11496 


00100 


BI 




11484 


39 


11509 


00 100 


WA 




11496 


47 


11520 


00300 


BNI 




11508 


48 


70767 


5 Of 


H 




11520 


46 


11388 


00200 


BI 




11532 


49 


11556 




B 
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ROUTINE 066 
CHECK COMPARE FOR NOT H/P NOT E/Z 



1 1 544 






?958 


X 


CONSTANTS AND WORKING AREA 


1 1 55A 


Ct\J 


1 1 54Q 

1 1 j*xy 


1 1 551 


X XT 


SET -79 IN P FTEL.D 

\J MZj X f 7 xiN Xt XT 1 IT* 1 


1 1 5 Aft 
1 13 DO 




1 1 54Q 


1 1 ODD 






1 1 D O U 


4A 




mi nn 

U 1 1 Uvl 


PIT 


r*Mirp^ vt /v> trio for wot w/p 


1 1 Dye, 


4A 


1 1 A4A 


U 1 faUU 


I3x 


fWFfti f / 7 th to fou mot f / 7 


1 1 604 


49 


11688 




B 




11616 


41 






NOP 




11628 


41 






NOP 














ERRO% ROUTINE 


1 1 640 

X X \J"X\J 


46 




00 100 


BI 




11652 


39 


11677 


00100 


WA 




11664 


47 


11688 


00300 


BNI 




11676 


48 


70767 


6 0* 


H 




11688 


46 


11556 


00200 


BI 




11700 


49 


11724 




B 














ROUTINE 067 










CHECK COMPARE IMMED FOR E/Z 


117 1? 
1 1 f lu 






lU&4o 


X 


CONSTANTS AND WORKING AREA 


1 1 7? A 
111 Ck 


"> A 


1 1 7 1 (1 


I 1751 

II ( 


TF 


SET 10248 IN P FIELD 


11 1 JD 

1 • 


1 4 


11 i io 


T Aft 


CM 


COMPARE IMMED 


111 to 


47 


1 1 7QA 
1 1 1 7 D 


U 1 £UU 


BNI 


CHECK E/Z TRIG FOR E/Z 


11760 


49 


11844 




B 




11772 


41 






NOP 




11784 


41 






NOP 














ERROR ROUTINE 


.1796 


46 


11820 


00100 


BI 




11808 


39 


11833 


00100 


WA 




\1820 


47 


11844 


00300 


BNI 




^1832 


48 


70767 


7 0* 


H 




11844 


46 


11724 


00200 


BI 




J)1856 


49 


11916 




B 
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ROUTINE 068 
CHECK ADD TEN DIGIT NO TO 12 DIGIT NO 



11868 


00 


12345 


67890 


X 


AUGEfJD 


11880 




23456 


78901 


X 


ADDEfJD 


1 1892 


00 


35802 


46791 


X 


COMPARE DATA 


11904 








X 


WORKING AREA 


11916 


26 


11915 


11879 


TP 


SET AUGEND 


11928 


21 


11915 


11891 


A 


ADD ADDEND TO AUGEND 


1 1940 


24 


11915 


11903 


C 


CHECIjC FOR CORRECT ANSWER 


11952 


47 


11976 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


11964 


49 


12024 




B 














ERROR ROUTINE 


11976 


46 


12000 


00100 


BI 




11988 


39 


12013 


00100 


WA 




12000 


47 


12024 


00300 


BNI 




12012 


48 


70767 


8 0/ 


H 




12024 


46 


11916 


00200 


BI 




12036 


49 


12096 




B 














ROUTINE 069 










CHECK SUBT TEN DIGIT NO FROM 12 DIGIT ] 


12048 


00 


98765 


43210 


X 


MINUEND 


12060 


5o 


12345 


67890 


X 


SUBTRAHEND 


12072 


86419 


75320 


X 


COMPARE DATA 


12084 








X 


WORKING AREA 


12096 


26 


12095 


12059 


TF 


SET MINUEND 


12108 


22 


12095 


12071 


S 


SUBT SUBTRAHEND FROM MINUEND 


12120 


24 


12095 


12083 


C 


CHECK FOR CORRECT ANSWER 


12132 


47 


12156 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


12144 


49 


12204 




B 














ERROR ROUTINE 


12156 


46 


12180 


00100 


BI 




12168 


39 


12193 


00100 


WA 




12180 


47 


12204 


00300 


BNI 




12192 


48 


70767 


9 0* 


H 




12204 


46 


12096 


00200 


BI 




12216 


49 


12240 




B 
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ROUTINE 0|0 
CHECK MULTIPLY 



ICC CO 




U121 


1111 


A 


XjfTTT T1DT ir* AKtrt XjfTTt TTDt TITO 

MU Jul Ir'ljlUAINlJ, MUl^l JUrJuiJifH* 


ICC'tV 


O 1 
CO 


1CC3 I 


Lccjy 


M 


MU Jul IlrjUX 


ill 1 C 1 

12252 


24 


12234 


00099 


c 


CHECK PRODUCT CORRECT 


12264 


47 


12288 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


12276 

V 


49 


12336 




B 


ERROII ROUTINE 


12288 


46 


12312 


00100 . 


BI 




^12300 


39 


12325 


00100 


WA 




12312 


47 


12336 


00300 


BNI 




12324 


48 


70777 


0* 


H 




12336 


46 


12240 


00200 


BI 




12348 


49 


12372 




B 





ROUTINE 071 
CHECK MULTIPLY 



12360 




0484 


2222 


X 


MULTIPLICAND, MULTIPLIER, 


12372 


23 


12369 


12371 


M 


MULTIPLY 


12384 


24 


12366 


00099 


C 


CHECK PRODUCT CORRECT 


12396 


47 


12420 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


12408 


49 


12468 




B 


ERROR ROUTINE 


12420 


46 


12444 


00100 


BI 




12432 


39 


12457 


00100 


WA 




12444 


47 


12468 


00300 


BNI 




12456 


48 


70777 


1 0* 


H 




12468 


46 


12372 


00200 


BI 




12480 


49 


12504 




B 
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ROUTINE 072 
CHECK MULTIPLY 



12492 




1936 


4444 


X 


MULTIPLICAND, MULTIPLIER, 


12504 


23 


12501 


12503 


M 


MULTIPLY 


12516 


24 


12498 


00099 


C 


CHECK PRODUCT CORRECT 


12528 


47 


12552 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


12540 


49 


12600 




B 


ERROR ROUTINE 


12552 


46 


12576 


00100 


Bl 




12564 


39 


12589 


00100 


WA 




12576 


47 


12600 


00300 


BNI 




12588 


48 


70777 


2 0^ 


H 




12600 


46 


12504 


00200 


BI 




12612 


49 


12636 




B 





ROUTINE 073 
CHECK MULTIPLY 



12624 




7744 


8888 


X 


MULTIPLICAND, MULTIPLIER, 


12636 


23 


12633 


12635 


M 


MULTIPLY 


12648 


24 


12630 


00099 


C 


CHECK PRODUCT CORRECT 


12660 


47 


12684 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


12672 


49 


12732 




B 


ERROR ROUTINE 


12684 


46 


12708 


00100 


BI 




12696 


39 


12721 


00100 


WA 




12708 


47 


12732 


00300 


BNI 




12720 


48 


70777 


3 0* 


H 




12732 


46 


12636 


00200 


BI 




12744 


49 


12768 




B 
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ROUTINE 074 
CHECK MULTIPLY IMMED 



12756 




00000 


777 


X 


MULTIPLICAND 


12768 


13 


12767 


00000 


MM 


MULTIPLY IMMED 


12780 


47 


12840 


01200 


BNI 


CHECK E/3 TRIG FOR E/Z 


12792 


24 


12763 


00099 


C 


CHECK PRODUCT CORRECT 


12804 


47 


12840 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


12816 


49 


12888 




B 




12828 










ERROR ROUTINE 


12840 


46 


12864 


00100 


BI 




12852 


39 


12877 


00100 


WA 




12864 


47 


12888 


00300 


BNI 




12876 


48 


70777 


4 0/ 


H 




12888 


46 


12768 


00200 


BI 




12900 


49 


12960 




B 





ROUTINE 075 
CHECK MULTIPLY 



12912 




01234 


56789 


X 


MULTIPLICAND 


12924 




51234 


56789 


X 


MULTIPLIER 


12936 




000 


15241 


X 


COMPARE DATA 


12948 


57 


87501 


90521 


X 


COMPARE DATA 


12960 


23 


12923 


12935 


M 


MULTIPLY 


12972 


24 


12959 


00099 


C 


CHECK PRODUCT CORRECT 


12984 


47 


13008 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


12996 


49 


13056 




B 


ERROR ROUTINE 


13008 


46 


13032 


00100 


BI 




13020 


39 


13045 


00100 


WA 




13032 


47 


13056 


00300 


BNI 




13044 


48 


70777 


5 0? 


H 




13056 


46 


12960 


00200 


BI 




13068 


49 


13128 




B 
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ROUTINE 076 
CHECK MULTIPLY 



13080 


37 


92022 


34363 


X 


MULTIPLICAND 


13092 


82 


06972 


2125? 


X 


MULTIPLIER 


13104 


31 


12102 


20036 


X 


COMPARE DATA 


13116 


15 


97794 


54291 


X 


COMPARE DATA 


13128 


16 


00079 


00000 


TFM 


SET M3EM POS 75-79 TO ZERO 


13 140 


23 


13091 


13103 


M 


MULTIPLY 


13152 


24 


00099 


13127 


C 


CHEC1$ PRODUCT 


13164 


47 


13200 


01200 


BNI 


CHECI* E/Z TRIG FOR E/Z 


13176 


44 


13200 


00076 


BNF 


CHECIf HIGH ORDER POS FOR FLAG 


13188 


49 


13248 




B 


ERROR ROUTINE 


13200 


46 


13224 


00100 


BI 




13212 


39 


13237 


00100 


WA 




13224 


47 


13248 


00300 


BNI 




13236 


48 


70777 


6 0* 


H 




13248 


46 


13128 


00200 


BI ' 




13260 


49 


13992 




B 





ROUTINE 077 
CHECK CONTROL OPERATIONS 8c 
WRITE NUM & ALPHA 



13272 


12 


345^6 


7890* 


X 


NUMERIC DATA 


13284 


55 


6454 


4955 


X 


ALPHA DATA NUM IN 


13296 


46 


56 4 


14256 


X 


ALPHA DATA FO ABO 


13308 


65 


45 5 


64646 


X 


ALPHA DATA VE OFF 


13320 


62 


4563 


6356 


X 


ALPHA DATA SET TO 


13332 




59494 


74863 


X 


ALPHA DATA RIGHT 


13344 




63665 


6 62 


X 


ALPHA DATA TWO S 


13356 


57 


41434 


562 


X 


ALPHA DATA PACES 


13368 


42 


45636 


64545 


X 


ALPHA DATA BE TWEE 


13380 


55 


75 


4155 


X 


ALPHA DATA N 5 AN 


13392 


44 


76 


6348 


X 


ALPHA DATA D 6 TH 


13404 


59 


4545 


5349 


X 


ALPHA DATA RES Li 


13416 


55 


4562 


5646 


X 


ALPHA DATA NES OF 


13428 




44416 


3410^ 


X 


ALPHA DATA DATA. 


13440 


46 


13764 


00100 


BI 


CHECK SW I FOR TYPEOUT 
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13452 


34 




00102 


K 


CARRIAGE RETURN 


13464 


34 




00108 


K 


TAB 


13476 


38 


13272 


00100 


WN 


TYPEWRITER 


13488 


34 




00101 


K 


SPACE 


13500 


34 




00101 


K 


SPACE 


13512 


38 


13278 


00100 


WN 


TYPEWRITER 


13524 


34 




00102 


K 


CARRIAGE RETURN 


13536 


34 




00108 


K 


TAB 


13548 


38 


13272 


00100 


WN 


TYPEWRITER 


13560 


34 




00101 


K 


SPACE 


13572 


34 




00101 


K 


SPACE 


13584 


38 


13278 


00100 


WN 


TYPEWRITER 


13596 


34 




00101 


K 


SPACE 


13608 


34 




00101 


K 


SPACE 


13620 


38 


13272 


00100 


WN 


TYPEWRITER 


13632 


34 




00102 


K 


CARRIAGE RETURN 


13644 


34 




00108 


K 


TAB 


13656 


38 


13272 


00100 


WN 


TYPEWRITER 


13668 


34 




00101 


K 


SPACE 


13680 


34 




00101 


K 


SPACE 


13692 


38 


13278 


00100 


WN 


TYPEWRITER 


13704 


34 




00102 


K 


CARRIAGE RETURN 


13716 


39 


13285 


00100 


WA 


TYPEWRITER 


13728 


34 




00102 


K 


CARRIAGE RETURN 


13740 


46 


13440 


00200 


BI 


CHECK SW 2 FOR LOOP ROUTINE 


13752 


49 


13764 




B 





ROUTINE 078 
CHECK DUMP NUMERIC TO 
TYPEWRITER & PAPER TAPE PUNCH 
FOR CARD I/O, SEE PAGE 55A 



13764 


34 




00102 


K 


CARRIAGE RETURN 


13776 


35 


19976 


00100 


DN 


DUMP NUMERIC- TYPEWRITER 


13788 


35 


19976 


00200 


DN 


DUMP NUMERIC- TAPE PUNCH 


13800 


49 


13944 




B 




13812 


41 






NOP 
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ROUTINE 078 

Check Dump Numeric to Typewriter 
& Card Punch. For Paper Tape, 
See Page 55 



1 % 7 Ail 


lb. 




00102 


K 


tarr i age net urn 


13776 


35 


19976 


00100 


DN 


Dump Numeric to Typewriter 


H788 


j j 




00400 


ON 


Dump Numeric to Card Punch 


13800 


49 


13932 




B 




1 J V? 1 z. 


4l 






NOP 










ROUTINE 079 










Check WA, 


Punched 


Data will then 








be read in 










For Paper Tape, See Page 56 






nit t n i 


31420 


X 


.)+$*- 


13836 


21 


23243 


33400 


X 


/,( <s> 




41 


it? it 3 it 


44^.46 


X 


A8CDEF 


13860 


hi 


48495 


15253 


X 


GH1JKL 


13872 




55565 


75859 


X 


MNOPQR 


1 3oo I + 


bZ 




56667 


X 


STUVWX 


13896 


68 


69707 


17271 


X 


Y20123 




7li 


7C7A7 


77879 


X 


456789 


i soon 


Up 






X 




• 




i A ni* 4 


13824 


TR 


Transmit Data to Punch Are< 


13944 


39 


16045 


00400 


WA 


Card Punch 


13956 


39 


16045 


00400 


WA 


Card Punch 


13968 


39 


16045 


00400 


WA 


Card Punch 


1 3980 


49 


19924 




8 










Check if 


D iv is ion 


Insta'l led 


13992 


49 


18808 




B 




14004 


16 


13998 


74052 


TFM 




14016 


49 


00552 




8 
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ROUTINE 079 

CHECK WA. PUNCHED DATA WILL THEN BE READ IN 



13824 


03 


04101 


31420 


X 


.)+$*- 


12836 


21 


23243 


33400 


X 


/,(=@ 


13848 


41 


42434 


44§.46 


X 


ABCDEF 


13860 


47 


48495 


15253 


X 


GHIJKL 


13872 


54 


55565 


75859 


X 


MNOPQR 


13884 


62 


63646 


56667 


X 


SfUVWX 


13896 


68 


69707 


17271 


X 


Y*0123 


13908 


74 


75767 


77879 


X 


4J6789 


13920 


0* 






X 




13932 








X 




13944 


39 


13825 


00200 


WA 


PAPER TAPE PUNCH 


13956 


39 


13825 


00200 


WA 


PAPER TAPE PUNCH 


13968 


39 


13825 


00200 


WA 


PAPER TAPE PUNCH 


13980 


49 


19924 




B 














CHECK IF DIVISION INSTALt 


13992 


49 


18808 




B 




14004 


16 


13998 


74052 


TFM 




14016 


49 


00552 




B 














ROUTINE 080 












CHECK LOAO DIVIDEND 


14028 


45 


67890 


12304 


X 


DIVIDEND 


14040 


00 


00000 


00000 


X 


COMPARE DATA 


14052 


28 


00095 


14039 


LO 


LOAD DIVIDEND 


14064 


24 


14043 


00099 


C 


COMP DIVIDEND WITH COMP DATA 


14076 


47 


14136 


01200 


BNI 


CHECK E/Z TRIG FOR E/2 


14088 


32 


00080 


00000 


SF 


SET FLAG POS. 80 


',4100 


24 


14047 


00083 


C 


CHECK FOR ZERO POS. 80-83 


14112 


47 


14136 


01200 


BNI 


CHECK E/Z TRG FOR E/Z 


14124 


49 


14184 


00000 


B 














ERROR ROUTINE 


14136 


46 


14160 


00100 


Bl 




14148 


39 


14173 


00100 


WA 




14160 


47 


14184 


00300 


BNI 




14172 


48 


70787 


0/ 


H 




14184 


46 


14052 


00200 


Bi 




14196 


49 


14244 




B 
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ROUTINE Ofl 
CHECK LOAD DIVIDEND 



1 4.?ftft 


12 34567 8908& 


A 






12 


34567 


fl A A A / 

89086 


A 


/""OXyfD &.D TT RATA 


1 A7 %7 


00 


00000 





Y 
A 


rf~*/"vx>no<ii d i:* to at 1 A 


\A7AA 


28 


00091 


14219 


l-i JL/ 


t AAn niVTrvtiTMn 

liV/ii/ 4-^1 V IJLXCjIN U 


1 A7 A 


24 


14239 


00099 




rnyp nivtriirisiri with rrimnp 


1 4.? Aft 

i *xCt DO 


>J 7 
47 


1 /I 1 A A 

14.3U4 


A 1 1AA 
Ui&UU 


XJlNl 


rwrrK xr 1 7 to to irrin v / 7 

V^JTIJLcVjXV Ej j £j 1 JTvXVJT J? VSXx XU f Z-i 


14280 


4V 


14.3D£ 




■r 




14292 

X AM / W 








NOP 


ERROR ROUTINE 


14304 


At* 




A A 1 A A 

UU J.UU 


BI 




14316 


•37 




UU 1 uu 


WA 




14328 


A1 


JL4.3D& 


AAOAA 


BNI 




14340 


TtO 


f U ( o I 


1 f\4 
1 Uf 


FT 




14352 


46 


14244 


00200 


JLJ J. 




14 j Oft 


49 


14488 




13 




14376 








X 




14388 








X 




14400 








X 




14412 








X 




14424 








X 




14436 








X 




14448 








X 




14460 








X 




14472 








X 





ROUTINE 082 
CHECK LOAD DIVIDEND IMMED 



14476 




78693 00000 


X 


14488 


18 


00094 78693 


LDM 


14500 


24 


14487 00099 


C 


14512 


47 


14488 01200 


BNI 


14524 


49 


14596 


B 


14536 


41 




NOP 


14548 


46 


14572 00100 


BI 


14560 


39 


14585 00100 


WA 


14572 


47 


14596 00300 


BNI 


14584 


48 


70787 2 0/ 


H 


14596 


46 


14488 00200 


BI 


14608 


49 


14644 


B 



COMPARE DATA 

LOAD DIVIDEND IMMED 

COMP DIVIDEND WITH COMP DATA 

CHECK E/2 TRIG FOR E/Z 



ERROR ROUTINE 
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ROUTINE 083 
CHECK DIVIDE 



14620 


12 


345£7 


89123 


X 


DIVIDEND, DIVISOR 


14632 


45~ 


10000 


06789 


X 


DIVISOR, COMPARE DATA 


14644 


28 


00099 


14628 


LD 


LOAD DIVIDEND 


^14656 


29 


00094 


14633 


D 


DIVIDE 


1466>8 


24 


14638 


00094 


C 


COMP. QUOTIENT TO COMP DATA 


^14680 


47 


14740 


01200 


BNI 


CHECSp E/Z TRIG FOR E/Z 


14692 


24 


14643 


00099 


C 


COMP REMAINDER TO COMP DATA 


14704 


47 


14740 


01200 


BNI 


CHEOf E/Z TRIG FOR E/Z 


14716 


49 


14788 




B 




14728 


41 






NOP 


ERROft ROUTINE 


14740 


46 


14764 


00100 


BI 




14752 


39 


14777 


00100 


WA 




14764 


47 


14£8|8 


00300 


BNI 




14776 


48 


70787 


3 0* 


H 




14788 


46 


14644 


00200 


BI 




i4800 


49 


14836 




B 
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ROUTINE 084 
CHECfC DIVIDE 



14812 


98 


76543 


21578 


X 


DIVIDEND, DIVISOR 


14824 


91 


45478 4179 


x. 


DIVISOR, QUOTIENT, REMAINDER 




28 100099 




LD 


LOAD DIVIDEND 




29 


00094 


146^0 




DIVIDE 1 


14866 *~ 


24 


14F3-0- 




G 


COMPARE QUOTIENT 


14872 


47 


14932 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


14884 


24 


14834 


00099 


C 


COMPARE REMAINDER 


14896 


47 


14932 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


14908 


49 


14980 




B 




14920 


41 






NOP 


ERROR ROUTINE 


14932 


46 


14956 


00100 


BI 




14944 


39 


14969 


00100 


WA 




14956 


47 


14980 


00030 


BNI 




14968 


48 


70787 


4 0* 


H 




14980 


46 


14836 


00200 


Bl 




14992 


49 


15028 




B 





ROUTINE 085 
CHECK DIVIDE 



15004 


98 


76543 


21123 


X 


15016 


45 


80001 


54941 


X 


15028 


28 


00099 


15012 


LD 


15040 


29 


00095 


15017 


D 


15052 


24 


15022 


00094 


C 


15064 


47 


15124 


01200 


BNI 


15076 


24 


15027 


00099 


C 


15088 


47 


15124 


01200 


BNI 


15100 


49 


15172 




B 


15112 


41 






NOP 



DIVIDEND, DIVISOR 

DIVISOR, QUOTIENT, REMAINDER 

LOAD DIVIDEND 

DIVIDE 

COMPARE QUOTIENT 
CHECK E/Z TRIG FOR E/Z 
COMPARE REMAINDER 
CHECK E/Z TRIG FOR E/Z 
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ERR<p. ROUTINE 



15124 


46 


15148 


00100 


BI 




15136 


39 


15161 


00100 


WA 




15148 


47 


15172 


00300 


BNI 




15160 


48 


70787 


5 0/ 


H 




15172 


46 


15028 


00200 


BI 




15184 


49 


15220 




B 














ROUTINE 086 










CHECK DIVIDE 


15196 


57 


84219 


53476 


X 


DIVIDEND, DIVISOR 


15208 


21 


42465 


3623" 


X 


DIVISOR, QUOTIENT, REMAINDER 


15220 


28 


00099 


15204 


LD 


LOAD DIVIDEND 


15232 


29 


00084 


15208 


D 


DIVIDE 


15244 


24 


0009*5 




C 


COMPARE QUOTIENT 


15256 


47 


15316 


01200 


BNI 


CHECfC E/4 TRIG FOR E/Z 


15268 


24 


15218 


00099 


C 


COMPARE REMAINDER 


15280 


47 


15316 


01200 


BNI 


CHECK E/Z TRIG FOR E/Z 


15292 


49 


15364 




B 




1 5304 


41 






NOP 














ERROR ROUTINE 


15316 


46 


15340 


00100 


BI 




15328 


39 


15353 


00100 


WA 




15340 


47 


15364 


00300 


BNI 




15352 


48 


70787 


6 0? 


H 




15364 


46 


15220 


00200 


BI 




15376 


49 


15400 




B 
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ROUTINE 087 
CHECK PIVIDE IMMEDIATE 



15388 




09020 





X 


Q^qiTIENT, REMAINDER 


15400 


18 


00099 


§6592 


LDM 


LOAD DIVIDEND IMMEDIATE 


15412 


19 


00096 


00096 


DM 


DIVIDE IMMEDIATE 


15424 


24 


15393 


00097 


C 


CO&fPARE QUOTIENT 


15436 


47 


15496 


01200 


BN| 


CH^CK E/Z TRIG FOR E/Z 


15448 


24 


15395 


00099 


C 


COMPARE REMAINDER 


15460 


47 


15496 


01200 


BN| 


CHEJCK E/Z TRIG FOR E/Z 


15472 


49 


15544 




B 




15484 


41 






NOP 


ERHpR ROUTINE 


15496 


46 


15520 


00100 


BI 




15508 


39 


15533 


00100 


WA 




15520 


47 


15544 


00300 


BN| 




15532 


48 


70787 


7 0* 


H 




15544 


46 


15400 


00200 


BI 




15556 


49 


15568 




B 





ROUTINE 088 
CHECK DIVIDE BY ZERO INDICATION 



15568 


18 


00096 


39486 


LDM 


LOAD DIVIDEND IMMEDIATE 


15580 


19 


00096 


60000 


DM 


DIVIDE IMMEDIATE 


15592 


47 


15628 


01400 


BNI 


CHECK FOR OVERFLOW ON 


15604 


49 


15676 




B 




15616 


41 






NOP 


ERROR ROUTINE 


15628 


46 


15652 


00100 


BI 




15640 


39 


15665 


00100 


WA 




15652 


47 


15676 


00300 


BNI 




15664 


48 


70787 


8 0? 


H 




15676 


46 


15568 


00200 


BI . 




15688 


49 


15700 




B ■ 
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ROUTINE 089 

CHECK OVERFLOW I NO I C . FIRST DIGIT GREATER ZERO 



15700 


18 


a^aa/ lit a*70 

00096 34278 


LDM 


LOAD DIVIDEND IMMEDIATE 


15712 


19 


00095 00314 


DM 


DIVIDE IMMEDIATE 


15724 


47 


15760 01400 


6NI 


CHECK F0R OVERFLOW ON 


15736 


49 


15808 


B 




15748 


41 




NOP 


ERROR ROUTINE 


15760 


46 


15784 00100 


Bl 




15772 


39 


15797 00100 


WA 




15784 


47 


15808 00300 


BNI 




15796 


48 


70787 9 Ot 


H 




15808 


46 


15700 00200 


Bl 




15820 


49 


18808 


B 




15832 


41 




NOP 





ROUTINE 090 
TIMES 1000 ROUTINE AND CHK NOP 



15844 




000 


X 


CONSTANTS AND WORKING AREA 


15856 


4? 




NOP 




15868 


46 


15916 01400 


Bl 


TURN OFF OVERFLOW 


15880 


11 


15855 00001 


AM 


ADD ONE TO P FIELD 


15892 


46 


13440 01400 


Bl 


CHECK FOR OVERFLOW 


15904 


49 


01116 


B 


ERROR ROUTINE 


15916 


46 


15940 00100 


Bl 




15928 


39 


15953 00100 


WA 




15940 


47 


15856 00300 


BNI 




15952 


48 


70797 |i 


H 




15964 


49 


15856 


B 





PN 2)28301 
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Page 62A 



18796 


00 


00000 


Tl 122 




18808 


26 


18855 


18802 


TF 


18820 


21 


18855 


18802 


A 


18832 


46 


18856 


01300 


Bl 


18844 


49 


19228 




B 


18856 


47 


19228 


01300 


BNI 


18868 


47 


18892 


01 100 


BNI 


18880 


49 


19228 




B 


18892 


46 


19228 


01100 


Bl 


18904 


46 


18928 


01200 


Bl 


18916 


49 


19228 




B 


18928 


47 


19228 


01200 


BNI 


18940 


47 


18964 


01400 


BNI 


18952 


49 


19228 




B 


18964 


46 


19228 


1400 


Bl 


18976 


14 


18984 


00/10 


CM 


18988 


47 


19012 


01200 


BNI 


19000 


49 


19228 




B 


19012 


46 


19228 


01200 


Bl 


19024 


47 


19048 


01300 


BNI 


19036 


49 


19228 




B 


19048 


46 


19228 


01300 


Bt 


19060 


21 


18855 


18804 


A 


19072 


46 


19096 


011.00 


Bl 


19084 


49 


19228 




B 


19096 


47 


19228 


01 100 


BNI 


19108 


46 


19132 


01300 


B 1 


19120 


49 


19228 




B 


19132 


47 


19228 


01300 


BNI 


19144 


21 


18855 


18805 


A 


19156 


46 


19180 


01400 


Bl 


19168 


49 


19228 




B 


1-918.0 


22 


18855 


18805 


A 


19192 


47 


19228 


01400 


BNI 


19204 


47 


19276 


01400 


BNI 


19216 


49 


19228 




B 


19228 


46 


19252 


00100 


Bl 


19240 


39 


19265 


00100 


WA 


19252 


47 


19276 


00300 


BNI 


19264 


48 


70797 


7000/ 


H 


19276 


46 


18808 


00200 


Bl 


19288 


49 


15856 




B 


19300 











ROUTINE 097 
BRANCH INDICATOR CHECK 



Working Area 
Clear Math Area 

Add 00 to 00 Causing E/Z, H/P or E/Z, Not H/P, 
and No 0/F 

Check B I H/P or E/Z for H/P or E/Z 

Branch to Error Routine 

Check BNI H/P or E/Z for H/P or E/Z 

Check BNI H/P for Not H/P 

Branch to Error Routine 

Check Gil H/P for Not H/P 

Check l|f. E/Z for E/Z 

Branch to Error Routine 

Check |NI E/Z for E/Z 

Check fNI 0/F for No 0/F 

Branch to Error Routine 

Check $1 0/F for No 0/F 

Compare^ 10 to -00 Causing Not H/P, Not E/Z, 

Not H/P or E/Z, and No 0/F 

Check 9NI E/Z for Not E/Z 

Branch to Error Routine 

Check Bl E/Z for Not E/Z 

Check BNI H/P or E/Z for Not H/P or E/Z 

Branch to Error Rout Ine 

Check Bl H/P or E/Z for Not H/P or E/Z 

Add 11 to 00 Causing H/P, H/P or E/2, Not E/Z, and No 

Check B» H/P for H/P 

Branch to Error Routine 

Check BNI H/P for H/P 

Check Bl H/P or E/Z for H/P or E/Z 

Branch to Error Routine 

Check BNI H/P or E/Z for H/P or E/Z 

Add 111 to 11 Causing 0/F, H/P, H/P or E/Z, and Not E/f 
Check Bl 0/F for 0/F 
Branch to Error Routine 

Add 111 to 22 Causing 0/F, H/P, H/P or E/Z, and Not E/f 
Check BNI 0/F for 0/F 
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ROUTINE 099 
CHECH TAPE OUWJT. READ IN TAPE THEN TYPE 
FOR $ARD l/0 t |EE PAGE 63 A 



i C nit 1 1 






Y 

A 




16056 






v 
A 




1 DUO O 






Y 
A 




loUoU 






Y 
A 




louyz 






Y 
A 




lb 1 0*+ 






V 
A 




ID 1 16 






v 

A 




161 2o 






V 
A 




16140 






X 




16152 






X 




16164 






X 




16176 






X 




16188 






X 




16200 






X 




16212 






X 




16224 






X 




16236 


48 




H 




16248 


41 




NOP 




16260 


34 


00102 


K 




16272 


36 16124 


00300 


RN 




16284 


38 16124 


00100 


WN 




16296 


38 16140 


001 00 


WN 




16308 


34 


00102 


K 




16320 


37 16069 


00300 


RA 




16332 


39 16069 


00100 


WA 




16344 


34 


001 02 • 


K 




16356 


37 16069 


00300 


RA 




16368 


39 16069 


00100 


WA 




16380 


34 


00102 


K 




16392 


37 16069 


00300 


RA 




16404 


39 16069 


00100 


WA 




16416 


34 


00102 


K 




16428. 


44 16488 


16152 


BNF 




16440 


44 16488 


16153 


BNF 




16452 


49 16500 




B 




16464 






X 




16476 






X 




loHoo 




00 1 00 


WA 




1 £ it nn 


4o 70797 


9000^ 


H 




16*51 2 


4q oo^? 




a 

D 












TES1 


19720 


63 45626 


3 59 


X 


TEST R 


19732 


56 64634 


95545 


X 


OUTLINE 


19744 


62 435 


65457 


X 


S C0MP 


19756 


53 45634 


54403 


X 


LETED. 


19768 


4946 


6266 


X 


IF SW 


19780 


71 564 


646 


X 


1 OFF 


19792 


41 5544 


5556 


X 


AND NO 


19804 


59566 


46349 


X 


R0UTI 


19816 


55^5 5 


55662 


X 


NE N0S 


19828 


63685 


74544 


X 


TYPED 


19840 


56646 


323 


X 


OUT 
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16044 
1 6056 
16068 
16080 
16092 
1610^ 
16116 
16128 
16140 
16152 
16164 
16176 
16188 
16200 
16212 
16224 
16236 48 

16248 15 16148 / 
16260 34 00102 
16272 36 16068 00500 
16284 38 16124 00100 
16296 38 16740 00100 
16308 34 00102 
16320 37 1&069 O( 0° 
16332 39 16069 00100 
16344 34 00102 
16356 37 16069 00500 
16368 39 16069 00100 
16380 34 00102 
16392 37 16069 00500 
16404 39 16069 00100 
16416 34 00102 
16428 44 16488 16152 
16440 44 16488 16153 
16452 49 16500 
16464 
16476 

16488 39 16501 00100 
16500 48 70797 9000^ 
16512 49 00552 



ROUTINE 099 
CHECK CARP OUTPUT. READ IN THEN TYPE 
(FOR PAPER TAPE I/O, SEE PAGE 63^) 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
H 

TDM 

K \ 

RN 

WN 

WN 

K 

RA—" 

WA 

K 

RA - 

WA 

K 

RA - 

WA 

K 

BNF 

BNF 

B 

X 

X 

ERROR ROUTINE 

WA 

H 

B 
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19852 


54 


41434 


84955 


X 


MACHIN 


19864 


45 


574 


55946 


X 


E PERF 


19876 


56 


59544 


544 


X 


OR MED 


19888 


63 


45626 


362 


X 


TESfS 


199CK) 


57 


59565 


74559 


X 


PROfER 


19912 


53 


68030 




X 


LY.# 


19924 


34 




00102 


K 




19936 


39 


19721 


00100 


WA 




19948 


46 


00552 


00400 


BI 




19960 


49 


16236 




B 




19972 




199 


76012 


X 


DUMP NUMERIC DATA 


19984 


34 


56789 


*1219 


X 


DUMf> NUMERIC DATA 


19996 


99 


89£ 




X 


DUMP NUMERIC DATA 
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